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1.0 INTRODUCTION 

In order to predict accurately the performance of an air-borne or 
satellite-borne radar system it is necessary to have a known return power 
level as a reference. To obtain a reference such as this has been the 
goal of radar system engineers for a great number of years. An extensive 
effort has been made to define a process* by which this reference level 
might be achieved. There are four groups sponsored by NASA working to 
achieve an accurate repeatable radar calibration technique. These 
four groups are: (1) NASA/JSC, (2) Texas A&M University, (3) The 1 

University of Kansas, and (4) NASA/JPL. 

The purpose of this report is to describe the FM-CW Radar being 
used by NASA/JSC as a Microwave Scatterometer. This description is 
limited to a system description, system parameter corrections, and a 
presentation of two data sets. 

This report will be divided into five major parts: (1) scatter- 

ometer system design, (2) scatterometer system calibration, (3) param- 
eter calculation and correction for data acquisition, (4) ground 
scatterometer data acquisition at Jornada Experimental Range, and 
(5) Kansas radar cross-calibration test. 
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2.0 FOUR FREQUENCY GROUND SCATTEROMETER 


2.1 SYSTEM DESCRIPTION 

The ground scatterometer consists of four separate radars with operating 
frequencies of 1.6 GHz, 4.75 GHz, 9.5 GHz and 13.3 GHz. Each system is a 
swept FM radar using triangular modulation (see Figure 2.1). The modulation 
is provided by the sweeper which sweeps linearly from 0 to 10 volts and back 
at a frequency of 150 Hz. Each YIG oscillator is swept through a range of 
fc -500 MHz to f +500 MHz, where f c is the center frequency except for the 
1.6 GHz which is swept - 160 MHz. The YIG oscillators serve as the trans- 
mitter oscillators as well as the LO's for the mixers. The signal out of 
the mixer is fed to the spectrum analyzer where it is sampled and digitized, 
and then to the calculator for processing and data storage. 


2.2 FREQUENCY CONSIDERATIONS 


The four ground scatterometer systems are swept FM systems with 
triangular modulation, the legs of the triangle being linear. The system 
is nominally swept from f -500 MHz to f +500 MHz, except for the 1.6 GHz 

L L 

as described above, f being the center frequency of the system or from f, 

L A 

to fg and back as shown in Figure 2-2 at a rate m. 

The received frequency tracks the transmitted frequency but is delayed 
by the time (t) which is a function of the range to the target. For a point 
target at range R, 


2R 

T - r - 

f T = ( f, +mt 
T ( f\ -mt 

f R = f T ( t-r) = f T (t 

= (f 1 +m (t - 

(f«-m(t- 2R v 
c C ] 


, c = velocity of light 

, f increasing 
, f decreasing 

2R 1 
- jr-) 

, f increasing 
, f decreasing 


2 







,,im page IS 


Mixing an attenuated part of the transmitted frequency with the 
received frequency and using the difference, the IF, which Is also the 
signal frequency, for point target range R is 

f. * Fjp * Iff fRl * fj -Hnt - fj -m (t - f) , 

fs * T . 

The actual signal used in the application of the ground scatter-' 
ometer Is obtained from an extended target and the ranges from different 
parts of the target are different. Hence, the actual signal will be a 
band of frequencies whose value will be bounded by the ranges at the 
edge of the receiver antenna beamwidth. Hence, 


A f S - f R2 


f x 2mR 2 „ 2mRi 
Rl "T~ " “C » 


Afs = --jjr (R 2 - Rj) - AR , 


Since the system is swept through the bandwidth B (nominally, 1 GHz) 
in time T, where T is given by T * - g y r -- p , the FM rate is 

m - ® a 20 f re P • 

Nominally, frep * 150 Hz. 


Since Afs = ^ AR , the slope of the frequency vs. 
range Is $ - \ (a frep) = . 


Using nominal values the slope should be 

Zm . 4Brei> = 4 150) . . 2KHz/n , eter _ 

c c 3-x 10 8 

9m 

As we shall see later, the actual measured value of is somewhat 
less than this, indicating that B is less than 1 GHz. 
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2.3 GEOMETRICAL CONSIDERATIONS 

The non zero antenna beamwidth and the antenna position relative 
to the target results In different slant ranges to the target as shown 
In Figure 2-3. The slant ranges at the antenna half power points and 
points of maximum gain are given by the following equations: 

R * h/cos 0 1 

Rj * h/cos , 

R 2 * h/cos (0+0^ ) , 

where 

h - vertical height above ground , 

= 3 de along track antenna beamwidth, 

6 = look angle , 

R = slant range to center of footprint , 

■ Rj * slant range to near edge of beamwidth , and 

R 2 = slant range to far edge of beamwidth . 

Using the Tri-Ex tower, the nominal value of h is 51.5 feet. 
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3.0 SCATTEROHETER SYSTEM CALIBRATION 

3.1 DETERMINATION OF P R 

The signal return for the ground scatterometer system can be 
estimated In the usual manner by using the radar equation as follows: 

P R * P t S t G„A a 
(4n) , R 1 ' 

where 

P R * return power at receiver antenna 
Py * power transmitted 

Gy, G r * transmitter and receiver antenna gains 
\ = radar wavelength 

a * radar cross-section of target 

R = range of target 

0 

The ground scatterometer is designed to measure sigma zero (a ), 
the radar cross section per unit area or scattering coefficient. If 
the target is homogeneous and small enough such that a does not vary 
over the angle the average scattering coefficient for a target may 
be written as 

ct° = ^ .where A * Footprint area for an extended target. 

Substituting the a° in the radar equation yields: 

P„ = P T G T G RA 2 g°A . 

<4w) S R 4 
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The calibration of the ground scatterometer could be performed 
by measuring P^., Gp a'jd G r and then determining the system response 
to measure P R at the output of the system. Another method Is to measure 
the cross-section of a known target and take the ratio of the power returned 
from a target to the power returned from the known calibration target. 

This method eliminates the need to measure the system gains and responses, 
and, In modified form, Is the method used to calibrate the ground 
scatterometer. 


From the odar equation above, 

» 




p t g t g r a 2 



K 


V 4 

T~ 


For a given, stable system, the quantity in brackets, K, should remain 
a constant. The determination of R and A Is done by direct measurement 
or calculation. 

The determination of P R is done using the spectrum analyzer. The 
output of the spectrum analyzer is a power spectral density, and the 
voltage output at a given frequency is related to the power Input within 
a small bandwidth Af centered at that frequency by the relation 



where k Is a constant of proportionality which includes the System 
response. The return power is estimated by 

P R = k / V 2 (f)df 
*^Afs 

where Afs is the signal bandwidth. A method for approximating the 
Integral will be given in the next section. 

The calibration of the ground scatterometer system reduces to -the 
determination of K in the equation for a 0 , This can be accomplished 
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by making measurements on a calibration target with a known crcss- 
section, generally a sphere. A sphere has the advantages of having 
the same cross-section at all radar frequencies, easy alignment of 
target and radar, and no depolarization Of the reflected signal. 

Table 3-1 gives various calibration targets and the method of determining , 
their cross-section. 


3.2 CALIBRATION CONSTANT DETERMINATION . 
3.2.1. RADAR EQUATION 



p t g t g r x2 * 

(4tt) 3 R 4 


P T G T G R x2q o A 

(4tt) 3 R 4 


Cal Target 


Extended Target 


where : 

P R = Return power, 

Py = Power transmitted, 

Gj,G r = Transmit and receive antenna gains, 
X = Radar wavelength, 

o = Radar cross-section of target, 

R = Range to target, and 

A = Footprint area for extended target. 


Assuming, for a given system, that Py, Gy, and G R are constant 

f Lfo)j ] a k = « 2 --. 

[p t g jG r X 2 J • 

For a given Cal Target, such as a sphere, the calculated 
value of o is used and P R and R are measured to determine K. 
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3.2.2, DETERMINATION OF P R 

The output of the ground scat mixer is a voltage which Is pro- 
portional to the square root of received power, i.e., 

The voltage output of the mixer is spread over the signal bandwidth 
of the system. This mixer output is fed to the spectrum analyzer 
which produces a power spectral density of the. Signal. For our measure- 
ments the output of the spectrum analyzer is set for DBV with a 1 KHz 
bandwidth. Hence, the power spectral density for each spectrum analyzer 
sample is * 

P(dBV) = 20 LOG V = 10 LOG V 2 , 
where V is voltage output of mixer 
V 2 (f) = 10 P < DBV >/ 10 

The total power received in the signal bandwidth Is given by 
P R = k/ V 2 (f)df, 

R J ifs 

where k is a constant of proportionality. In actual practice, the 
above integral is approximated by the summation as follows: 



Afs 


where (see Figure 3-1): 

Af = sample separation Hz, 

Vj 2 = normalized power in bandwidth Af, and 
Afs s signal bandwidth at IF. 






4.0 PARAMETER CALCULATION AND CORRECTION FOR DATA ACQUISITION 

4.1 GROUND SCAT BEAMWIDTH AND FOOTPRINT AREA CORRECTIONS 


Since the beaniwidths of the new configuration of the ground 
scatterometer have decreased while the transmit and receive antenna 
separations have Increased and since the antennas are boreslghted 
at a point 75' from the antennas, the overlap of the transmit/receive 
footprints is reduced as the range departs from 75', as shown In 
Figure 4-1. Previously, for calculating the footprint area, it was 
assumed that the transmit and receive footprints overlapped completely 
at all ranges and that the footprint area could be approximated by an 
ellipse whose major and minor axes were determined by projecting the 
along-track and cross- track beamwidths on the ground at the desired 
range. 

The reduced beamwidths and increased antenna separations of the 
reconfigured ground scatterometer system require that correction 
factors for the footprint areas and gains be applied. The separation, 
L, of the centers of the transmit and receive footprints is shown In 
Figure 4-2, The separation of the antennas is S. 

For a given range, R, the footprint center separation is: 


L = jj abs (R-75) , 

L = footprint center separation, 

1.78' for 18' dishes and 
4.53' for 4' dishes 
R = range from antennas to footprint center. 


where 


S = antenna separation 


This separation of the transmit and receive footprints complicates 
the two-way along-track and cross-track beamwidth calculations. The 
shaded area in Figure 4-3 and Figure 4-4 represents the overlap of the 
one-way transmit and receive patterns* Clearly, to calculate the 
two-way along-track beamwidth, the axis must lie along line AB. 
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Figure 4-2 Receive and Transmit Antenna Boreslght Separation as a 
Function of Range to the Target 
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This axis is offset from the center of the pattern, C, by the amount 
L/2, where l Is the footprint center separation, calculated above. 

The angular offset, <p/2, represented by the offset distance L/2 Is 
given by: 


4/2 ■ tan'^UR). 

This angular offset will be used along with pattern Information to 
calculate two-way beamwidths, 

To facilitate the use of a computer to perform the beamwidth 
and footprint area calculations, a simple function is required to 
describe the pattern information. One such function that seems to 
work very well was proposed by Morris Drexler of the Physical Sciences 
Laboratory (PSL), New Mexico State University. It represents the 
gain versus angle dependency of the pattern in the functional form 


where 


G * cos n e, see Figure 4-5, and 
G(db) * 20 n log (cose), 

*> ' A + Be ‘ ^ ■h- cKr ' 

6 = angle measured from peak gain, and 


g = gain, 


Several points from the measured pattern are used to determine 
the regression equation for n versus e and determine the constants 
A and B. Table 4-1 lists the values for A and B for each frequency, 
antenna, and polarization for both along-track and cross-track beam- 
widths. With these values stored in the computer, any of the antenna 
patterns can be reconstructed with a maximum error of 0.2 dB, To 
determine the two-way along-track beamwidths for any combination of 
polarizations, recall that the transmit and receive patterns are 
each offset from the along track axis by an angular distance 4 / 2 , 
Figure 4-6 shows that the peak gain of the along-track pattern offset 
from the peak of the cross- track pattern by 4/2 Is reduced by AG. 
Assume that the along-track pattern has the some shape for any angle 
In the cross-track pattern but reduced In gain depending upon 4/2. 
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TABLE 4-1 

REGRESSION EQUATION PARAMETERS 





RECEIVE (Dish #1) 

TRANSMIT (Dish #2) 


Port 








* 


ASong-Track 

Cross-Track 

Along-Track 

Cross-Track 


H 

A 

114.52949 

95.87447 

110.70820 

68.22823 

1.6 GHz 

B 

-0.46396 

-2.35479 

-0.18304 

1,62652 



A 

103.89736 

117.01953 

68.43885 

108.03487 


V 

B 

-3.61144 

-0.89083 

1.26610 

2.31202 


H 

A 

847.69575 

786.49935 

648.14165 1 

594.99888 

4.75 GHz 

B 

90.81535 

-31.69313 

229.91505 

58.25549 

w 

A 

662.28381 

777.53580 

572.57125 

892.40060 ’ 


V 

B 

43.53338 

109.78388 

76.92901 

66.37332 


H 

A 

367.23479 

323.09613 

276.06934 

389.69973 

9.5 GHz 

B 

28.35611 

13.42379 

81.13510 

-10.03755 

If 

A 

245,19170 

447.25262 

268.10552 

378.09661 


V 

B 

56.67478 

-24.95307 

38.45177 

8.82711 


H 

B 

1175.92320 

553.20650 

707.41458 

535.43653 

13.3 GHz 

H 

-248.05369 

53.09570 

mmm 

-0.44003 

H 

A 

827.61286 

433.82269 

369.83395 

305.16556 


H 

B 

-131.83885 

228.48441 

50.60591 

143.63006 
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One can then obtain the two-way, 3dB, along-track pattern by summing 
the two patterns, reduced by the appropriate AG, point by point and 
finding where the sum is 3-dB down from Gmax, the cross -track peak 
gain, as shown in Figure 4-7. 

The cross-track two-way beamwidths are somewhat easier to obtain. 

The cross-track patterns are first constructed from the data in Table 4-1, 
and are each offset from the peak by the angle 4>/2 . see Figure 4-8, 

The two patterns are then summed point-by-point and the resultant two- 
way pattern is obtained. The points where the resultant gain is 
-3dB determine the two-way cross-track beamwidth. 

Since the angle <j>/2 varies with range, and the two-way beamwidths 
vary with <}>/2, a large lookup table would be required in the data 
collection program to take into account the complete variation of 
beamwidth with range. A more compact method of storing the required 
data is to perform a regression of beamwidth on ran*je and store the 
resulting curve-fit constants. This was performed for the ground 
scatterometer in its present configuration and the data is given in 
Table 4-2. In general, it was found that different regression 
equations were required for ranges less than 75 feet and ranges 
greater than 75 feet. Also, a polynomial of the second degree was 
required to best fit the data and is given as ; 

BW = A 0 + A X R + A 2 R 2 , 

where , 

BW = two-way beamwidth In degrees, and 
R = range in feet , 

The constants given in Table 4-2 are stored in the Data Collection 
Program and used to calculate the footprint area. The range, R, is 
first determined from the ground scatterometer geometry using the 
corrected height of the antennas and the antenna look angle. This 
calculated range is used to determine the along-track and cross-track 
two-way beamwidths from Table 4-2 depending on the frequency, polari- 
zation, and whether R - 75* of R > 75'. The footprint is an oblique 
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TABLE 4-2 


ORIGINAL PACE &' 
0F POOR QUALITY 


REGRESSION CURVE FIT CONSTANTS 





RFH 1 

VV 

RV 

vH 

1.6 GHz 
Along-Trk 

RS75' 

Ao 

Ax 

a 2 

0.05697 

-0.00040 

4.1 1857 
0.09456 
-0.00067 

4.26714 

0.06750 

-0.00047 

4.25429 

0.07700 

-0.00054 

R>75‘ 

Ac 

At 

a 2 

<>.444l() 

0.00034 

-0.00001 

""T30W" 

0.00359 

-0.00004 

~B.7lA27 

0.00146 

-0.00002 

r T. 2^926 

-0.00296 

0 

1.6 GHz 
Cross-Trk 

R*75' 

Ao 

A, 

a 2 

-1.97660 

0.21079 

-0.00113 

"'-2..BI371 

0.20159 

-0.00107 

-274685f~ 

0.21109 

-0.00114 

-2.607 14 
0.20273 
-0.00107 

R>75' 

Ao 

A» 

Aj 

12.01074 

-0.08064 

0.00027 

10.96727 

-0.08472 

0.00029 

11.64727 

-0.08472 

0.00029 

11.46468 

-0.08522 

0.00029 

4.75 GHz 
Along-Trk 

Rf75* 

Ao 

Ai 

A 2 

""UW 

0.17973 

-0.00127 

-8.36600 

0.31229 

-0.00223 

-5.00066 

0.20926 

0.00149 

-6.65143 
0.25703 
-0.00183 _ 

R>75‘ 

Ao 

Ai 

fa. 

' 1.90900 
0.01062 
-0.00009 

2.36913 

0.01123 

-0.00011 

2.14786 " 
0.00924 
-0.00008 

2.24719 

0,00897 

-0,00009 

4.75 GHz 
Cross-Trk 

R-75* 

A* 

Ai 

fa 

-6.54286 

0.20026 

-0.00106 

-6.76000 

0.20086 

-0.00109 

-6.17429 

0.18923 

-0.00100 

-7.10857 

0.21109 

-0.00114 

R>75‘ 

Ao 

Ai 

a 8i 

6.77420 

-0.07536 

0.00024 

; 6.69740 
-0.07891 
0.00027 

6.69004 

-0.07691 

0.00026 

6.82996 

-0.08136 

0.00027 

9.5 GHz 
Along-Trk 

R*75’ 

Ao 

Ai 

Aa . 

2.62000 

0.02003 

-0.00014 

3.1^286 

3.01133 

-0.00007 

2.746o6 

0.01859 

-0.00013 

3.03286 

0.01133 

-0.00007 

R>75' 

Ao 

Ai 

a 2 

3". 36260 
-0.00069 
0. 

3.71333 

-0,00093 

0 

3.53333 

-0.00093 

0 

3.55333 

-0,00093 

0 

9.5 GHz 
Cross-Trk 

RS75' 

Ao 

Ai 

f 2 

0.07370 

-0,00039' 

0,13714 
0,06891 
-0; 00034 

-U. 3 68b 7 

Q, 08567 
-0.Q0O47 

T; 34857 

0,06777 

^.00034 

R>75 * 

Ao 

Ai 

a 2 

5.40675 

-0.03355 

0.00012 

4,91359 

-0,02732 

0,00009 

5,22087 

-0.03243 

0.Q0Q11 

'"V, 28753”' 
-Q.Q3190 
0,00011 

13.3 GHz 
Along-Trk 

R<75‘ 

a” 

j! 

1.79000 

0.01859 

-0.00013 

2.23000 

0.01859 

-0.00013 

1.69714 

0.02809 

-0.00020 

1.99000 

0.01859 

-0.00013 

R>75 1 

a" 

fi 

2.38675, 

0.00218 

-0.00002 

2.96260 

-0.00069 

0 

'2.7d'07S 

0.00032 

-0.00001 

2.68078 

0.00032 

-0.00001 

13,3 GHz 
Cross-Trk 

Rs75’ 

a| 

-0.27857 

0.06564 

-0.00033 

-0.07657 

0.06164 

-0.00033 

-0.66571 

0,07217 

-0.00040 

0.GB491 

-0.00034 

R>75' 

a" 

*L_ 

* 4.32433 

“’0.02716 
0.00009 

| 4.ii2i2 
-0.02524 
0.00008 

4 . 34866 
-0.03051 
0.00011 

4.46684 

-0.02950 

0.00010 



projection on the ground of the two-way antenna pattern and Is assumed 
to be elliptical. The semi -major and semi -ml nor axes are calculated 
as follows (see Figure 4-9). 


b 

SB 

R tan (CTBW/2) 

R n 

a 

H/cos (0 - ATBW/2) 

R F 

e 

H/cos (0 + ATBW/2) 

a 

s 

|R n 2 + R p 2 - 2R N R F cos(ATBW)j **/, 

where 



R 

» 

s 

range to center of .ootprlnt 

0 

s 

look angle 

H 

s 

corrected height 

ATBW 

a 

along-track two-way beamwidth 

CTBW 

= 

cross-track two-way beamwidth 

r n 

= 

range to near edge of footprint 

r f 

- 

range to far edge of footprint 

a 

= 

semi -major axis 

b 

= 

semi -minor axis 


The footprint area is therefore: 


A = irab- 

To calculate the gain reduction caused by the incomplete over- 
lapping of the one-way footprints at ranges other than 75', we use the 
procedure in Figure 4-3 and described in the text for that figure. 

This gain reduction can be described in a regression equation on the 
range R. It was found to be significant only for the 4.75 GHz system. 
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Figure 4-9 Antenna Footprint Geometry 
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4.75 GHz System 

CF » -17.97 + 0.5065R-3.566xl0" 3 R 2 , R* 75' 

CF = 0.1546 + 0.01131R-l,673xl0" 4 R 2 , R>75' 

where CF a correction factor in dB to be added to the calculated 
sigma zero (ot ff ) in dB 

These footprint area and gain corrections, while not exact, 
provide a better approximation of go than was obtained in the past. 

4.2 CORRECTION OF ANTENNA HEIGHT AND RANGE 

During operation of the ground scatterometer, the measuring 
tape used to determine the height of the antennas above the ground 
is attached to the pivot shaft of the antenna positioner. The range 
is determined geometrically from the height and look angle. The range 
required for the sigma zero calculations is the electrical path from 
the antenna feed point to the target. Since the feed point of the 
antenna does not lie on the pivot shaft, the feed point height above 
the ground will vary with the look angle. The range to the target 
will also change with look angle. This change in range must be 
compensated for in the sigma zero calculation. The geometry and 
equations given on Figure 4-10 are sufficient to make this compen- 
sation when reducing the scatterometer data. 

4.3 RANGE OFFSET AND FREQUENCY/RANGE SLOPE 

As was discussed in the section on FREQUENCY CONSIDERATIONS, 
the IF frequency output of the ground scatterometer should vary 
linearly with range when measuring a point target. The range is 
measured from the feed point of the antennas, but the IF frequency 
depends on the entire electrical path including cables and other 
components. Therefore, when the range Is zero, the frequency will 
not be zero, but some frequency higher than zero. Therefore r 

f IF = (R+R0) > 
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Figure 4-10 Scatterooeter Antenna Geometry 
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where 

R = range to target measured from antenna feed point, 

RO * range offset due to cables, etc., 

2m * slope of frequency/ range plot, am d 

T 

m = FM rate . 


The slope and range offset could be calculated since all quantities 
Involved can be measured. For Instance, the FM rate in Hz/sec is 
given by 


m 


2Bf 


rep, 


where B is the FM bandwidth, nominally 1 GHZ, and F„„ is the sweep 

rep 

repetition frequency, nominally 150 Hz. In actuality, it is very 
difficult to measure B accurately using the spectrum analyzer. Simi- 
larly, it is difficult to measure R, since the propagation time for 
each type of cable and component must be known as a function of radar 
frequency. 

A simple method is to measure the IF frequency for a point target at 
several ranges and use the data to fit a least squares curve. This 
curve has the form given by the following equation. 

f = a + a,R 
o 1 » 

where 

a = i zfj -) I sBfL- W ( M fill . and 
0 NER; 2 - (ERi ) 2 

a - NSfiRi - (ERi ) (Efi) 

”1 " O O • 

NERi - (ERi r 


where fj is the frequency corresponding to Rj, f 2 corresponds to R 2 , 
etc., and N is the number of (R^, fj) sets measured. 
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In terms of system parameters: 
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2m 

c 


RO 


a l 

RO 


2m 

“c , and 



ao 

a l 


These measurements must be repeated for each system since they have 
different characteristics. The knowledge of these relationships 
permits us to roughly check the accuracy of the range during terrain 
measurements, lets us know how to set up the spectrum analyzer, and 
are used in the calculation of the number of independent samples for 
a single measurement. 

4.4 FADING STATISTICS AND INDEPENDENT SAMPLES 

Fading of a radar signal comes about because of phase inter- 
ference phenomena in a coherent signal. The ground scatterometer 
generates a coherent signal and is therefore subject to fading. 

The effect manifests itself in that if two measurements are made on 
two different locations in a homogenous, randomly rough field, signifi- 
cant differences can be obtained. In fact, if each measurement contains 
only one independent sample, the variation in sigma zero between the 
two measurements can be 18dB! Fading statistics are similar to the 
statistics for narrow-band Gaussian noise and follow a Rayleigh dis- 
tribution. To obtain a valid estimate of sigma zero, many independent 
samples must be taken and averaged. For two samples to be independent, 
it is necessary that the targets being measured differ sufficiently in 
aspect angle, radar frequency or location. It is possible to obtain 
more than one independent sample per measurement. The number of 


independent samples obtained in a given measurement is equal to the 
time/bandwidth product of the system for that measurement. The band- 
width required is the signal bandwidth, Af $ . The time is the time 
required for the system to complete one sweep through the FM bandwidth 
given by: 



Therefore, the number of independent samples, N i , for a single 
measurement is given by: 

Ni = (Afs) T - 4- v - . 

T rep 

Table 4-3 gives a rough estimate of the number of independent samples 
per measurement as a function of look angle for a given along-track 
antenna beamwidth, with an antenna height of 50 feet. The 4.75 GHz 
system has the smallest 0 A and hence the smallest R0 at a given angle. 
Therefore, it has the smallest N.. at each angle. For' all four systems, 
increases with increasing look angle, increasing height, and 
increasing 0. 
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GROUND SCATTEROHETER 
EAMWIDTH VS. NUMBER OF 
INDEPENDENT SAMPLES 
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5.0 GROUND SCATTEROMETER DATA ACQUISITON AT JORNADA EXPERIMENTAL 

RANGE 

The simulated roughness and agricultural sites used are 
located at the Jornada Experimental Range northeast of Las Cruces, 

New Mexico. These prepared fields are 2500 feet long and 500 feet 
wide. One field Is divided Into four random roughness sections sepa- 
rated by access roads. The two south fields have large-scale random 
roughness and the two north fields have small-scale random roughness. 
The other field is also divided into four sections, two each of dif- 
ferent row spacings. The two north sections have closely spaced 
rows which will be used for the ground data acqulslton. 

Data was acquired using the access road between the two north 
sections for small-scale roughness data and the access road between 
the two south sections for large-scale roughness data* Two physical 
locations, 50 feet each side of field centerline were used for each 
roughness scale. Sample data summaries are Included for the dif- 
ferent frequencies, look angles and antenna polarizations and are 
presented In Figures 5-1 and 5-2. 
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Figure 5-1 Sigma Zero Data taken at Jornada Test Range 
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6.0 KANSAS RADAR CROSS-CALIBRATION TEST 


During August 1982 a test was conducted by four Scatfcerometer teams 
In order to calibrate all four systems against several common targets. 

The fixed targets observed by the systems were as follows: 

1) Four foot diameter, aluminum sphere of known cross-section, 

2) Corner reflector, 

3) Two foot flat plate, 

4) Eight Inch Luneberg Lens, 

5) Twelve Inch Luneberg Lens, and 

6) Seven foot Lazy Susan Gravel Target. 

In addition to the above mentioned fixed targets several extended 
targets were observed. These targets are described below. 

Target number one - This target was field corn with 18" row spacing 
and tassel height from seven to ten feet. This target presented some 
problems since there were radar returns from the ground as well as the 
crop canopy. The antenna height was adjusted In the computer data 
processor. The radar cross-sections, ao, for this target are given 
In Figures 6-1 to 6-3. 

Target number two - This target was 50 % mature Soy Beans with a 
crop canopy of about three feet. This target did not display the 
double return as observed In the corn observations. The radar cross- 
section measured for this target is summarized in Figures 6-4 to 6-6. 

Target number three - This target was a randomly plowed field. 

For the purposes of comparison to the data taken in New Mexico, It 
should be noted that this field was covered with about 30% green 
vegetation. This vegetation cover will alter the radar return 
expected from a bare randomly plowed field. Figures 6-7 to 6-9 
presents the summary of the results for this target. 

Target number four - This target was a flat grass field. The 
grass height was between four and six Inches. Just prior to taking 
radar observation at this field there was a one half Inch rain. The 
narrow leaf grass was given about four hours to dry before starting 
data acquisition. Figures 6-10 to 6-12 gives the sumnary results of 
this field. 
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After the extended target data acquisition ms completed the 
fixed calibration targets were observed to determine if there was 
any system drift, It Is suggested that dielectric measurements be 
made to get a better Indication of to near normal Incidence radar 
return. 
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Figure 6-1 Sigma Zero Data for Corn HH Polarization 
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Figure 6-3 Sigma Zero Data for Corn VH and HV Polarization 
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Figure 6-7 Sigma Zero Data for Rough Bare Field HH Polarization 
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Figure 6-8 Sigma Zero Data for Rough Bare Field VV Polarization 
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Figure 6-11 Sigma Zero Data for Grass VV Polarization 
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Figure 6-12 Sigma Zero Data for Grass VH and HV Polarization 
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7,0 CONCLUSIONS 


The Implementation of the RADAR system described in this report 
has made considerable progress toward obtaining a repeatable end to 
end calibration. System operation is fairly straight forward, however; 
data acquisition time needs some Improvement. 
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APPENDIX A 


I 

This appendix provides a listing of the computer programs 
developed on the HP 9825 to facilitate data collection aw* 
reduction. 



1 


K 


4 
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"File 0 : file Directory 7— 9 —82 M s 


ort "file Directory"," " ; spe 

pet "Os", "File Directory" ;spc 
prt "l:","Data Collection" ;spc 
prt "2 :" /’Calibration" ;spc 

prt "3: "/'Plot Ground Scat" , "Sweep on Printer";spc 
prt "4:", "Range Oilset- ", "Freq/Rng Slope" jape 
prt ”5:,","Duino Data Files"," to Printer" ;spc 
prt "G: " , "Dump Cal Files"," to Printer" ;spc 
10 ; prt "7s", "Data Table"; ape 
11: prt "8: ", "Stat istics" ;spc • 

12: ort "9:", "Plot Sigma 0 v».", "Angle on Pr inter" ;spc 
13: s pc 4 ; end 


A- 3 


ORIGINAL PAGE IS 
OF POOR QUALITY 

0 : "File 1: Data Collection 8-5-82": 

1 : " " ; 

2: "I nit"? 

3: prt "Data Collection"," "?spc ;lcl 7?ctg 10 

4: dim A ( 12 ) , A $ ( 12 , 0 ) , L$ 1 2 ) , P$ ( 4 , 2 ] 

5: ciev "5*14" , 704 , "SPE ANA", 717 
6: H First"*A!?Ul Second "+A$ [2 ] ? "Third "♦A? [ J J 
7: "Fourth"*A$[4) ; "Fifth "♦A? (5 j ? "Six th"*AS [0 j 
8: "3eventh"*A$t 71 ? "Eighth "♦AS (8 ] ; "Hint h"+A? [ y] 

<) : " tenth" *A $ 110) ; " E le vonth "♦A? 111)?" Two 1 f th" ♦ A$ 112) 

10: ont "Month?"', rO, "Day?",rl, "Year?" ,r2 

11 : " ": 

1.2: "Printer Setup": 

13: ent "Print data on Line Pr inter?l=ycs" ,.x* 

14: it a| 1; g to "Look Angle Setup" 

lb: ent "Insert paper ?press CONTINUE", X 

16: s£g llywtb 6,27,69?1*B 

17: fmt 10x,z;wrt 6;wtb 6,27,77 

16: wtb 6, 27, 87, int (8*120/64) ,int(B*120) 

19: " ": 

20: "Look Angle Setup": 

21: ent "No. of look angles to be used?",N 

22: for 1*1 to N 

23: dsp A?|I],"Look Angle?" 

24: ent "",A[I1 
25: next I 

26: ent "Height in feet?", E? E*r3 
27 : " " : 

28: "Tape": 

29: ent "Insert Data Tapeypress CONTINUE" ,X 
30: ont "Data Tape Number ?",r30 
31: ent "No. of Files on Trk Q?",r31 

32: ent "No. of Files on Trk l?",r32 

,33: ont "Record Data on which trk? 0 or l",r33;trk r33 
34: it llglOyctg 10;gto "Time" 

35: " ": 

30: "Precj": 

37: ont "Scat terome ter frequency in GHz?",F 
36: tilt l,f4.1," Gilz System" 

39: if P=4.75;£mt 1,14.2," GHz System" 

4U: wrt 1 u . 1 , F ; F+ r 4 ? pr t " " 

41: " ": 

42: "Polarization": 

43: ent "No. of polarizations to be used?" ,P 
44: for 1=1 to P 

45: dsp A$ | I ) , " Pol? HH, VV, HV, or VH" 

4b: ent M, ,P5U) 

47: next I 

43 : " " : 

49: "Site": 

50: ent "Site number multiplied by 100?" ,8; S*rl0 
51: " 
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52 

53 

54 

55 

56 

57 
50 
59 
6 0 : 
61 : 
62: 
b3: 
64: 
65: 
66 : 
67: 
68 : 
69 : 
70: 
71: 

72 

73 

74 

75 

76 

77 
hi 

79 

80 
81 
8 2 

8 j 

84 

85 
06 

07 

08 

09 

90 

91 


"Print initial conditions": 

! !Tt L "Date: ",L2.0, 12 . 0, 2. U; wr t K>,ro,rl,r2 

tint "Hcight(fct): ",£4.1;wrt 16, LI 

tint "Site Mo: ",t7.2;wrt 16,S/100;spc 

II 19 . 

"Range Ottset L t'req/Rng Slope": 

" The values tor these parameters are determined": 

" tor each frequency from Pile 4: Uanqe Offset-": 

" t’req/Rng slope Program": 
ont "Sweep Repetition Rate ?" ,r 25; 1*0 
if P-1.6;19. 6*r8 ;1. 08*r25-*-r9 
if F*4.75;15. I*r8;3.&27*r25-r9 * 

if F=9. 5; 13.4+r8;3.764*r25+r9 
if F*13.3;16.2*r8;3.451*r25*r9 

M II . 

" pol" : * 

ii u>P;gto "Freq" 

dsp "Set polarization to",p$ ( D ) ," j COUTIMUB" 
ont " " , X; 1*J 

fmt "Polarization; ",c2;wrt 16,P$(Dl;spc 

II II # 

"Ti me" : 

it JXl; 09 l*l);g to "pol" 
enc '"lime (hr .min) ?" , T; 'l>rll 
i nt (T) ♦x; 100* (T-X) ♦¥ 

M M . 

" ftng lo" : 

A l J 1 *A; A*r 12 

fmt "Look Angle: " , l 4 0 j wr t 16, A 

lint " T imc( n: ra) : ",f 3. 0, £z2. 0;wr t 16,X,Y 

•» •• . 

"I eight Correction and Range fetormination" : 
it P = 1.G or P=4. 75 ; R+2. 23* s in ( A) +1. 2 5*COS ( A) rl3«-H 
iL P-9,5 or F=13. 3 ; F.+4 . 80*s in ( A) - .11* cos (A) + rl3+H 
txd l;pct "Height (cor r)*" ,H 

H/cos( A) *R-*r 14 ; tmt "Range (ft): ",E5.1;wrt 16, R 

tint "3e t elevation to ",£2.0," deg ; C09TI9UL" ; wr t 0,A;stp 

»» • 

IP 3330B Frequency Synthesizer and 3571ft Spectrum Analyzer Setup" 
Frequency Synthesizer " : 


II 

H i 
tl 


92: " 

Center Frequency: 

Variable" : 

93: " 

Frequency Step: 

10 Hz": 

94: " 

Time/S tep: 

1 0m s " : 

95: " 

Spectrum Analyzer": 


96: " 

Display Ref : d 3V" 

• 

• 

97: " 

Display Smoothing: 

On" : 


Bandwidth: 1000 Hz": 

Input Range: +10 dBV" : 

Inout Impedance: 1 megonm": 

Me a su cement Control Mode: External": 


98: " 

99: " 

100 : " 

101 : " 

102: "Setup": 

103: cem 7; tint "RlSl D5V7 22 U" ; wr t " 3 P S AHA" 
104: " 
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105: "Center Frequency Search": 

106: r9(in£3) •♦•€♦¥ 

107: C-50 50 +C; -70*M ; 50 ♦X ;g sb "search" 

100: Y-1Q10+C; 10*X;gsb "search" 

109: ¥*Orl5;gto ' : prt£rcq" 

110: "search": 

111: for 1=1 to 200 
112: C+XC 

113,: f mt "L" ,£ .l,"="?wrt "SYi!J",C;wait 5 

114: wrt "£PE AHA", "T";£mt f.2;rcd "SPE AM A" ,Z 

115: if Z>M?Z->M;OV 

116: next I 

117: ret 

118: " prttreg" : fxd 0;prt "Center Freq:",C 
119: " " : 

120: "Summation of Data between -6 dBV Points": 

121: gsb “data" 

122: Z+M; " "♦L$?0*r27+r28 

123: C-10+C 
124: gsb "data" 

125: if Z<M-6;gto "Low Freq" 

126: if C<¥-5Q0Q;g to +2 
127: gto -4 

128: prt "Low 6-dBV limit"," not reached" ;l+r27 
129: "Low Freq" : 

130: fmt "Low Freq: ",£ 6.0; wrt 16,C;C*rl6 
131: gsb "data" 

132: tn' , (Z/10)*V;tn''( Z/20) + U 
133: "sum": 

134: C+10-^C 
135: gsb "data" 

136: N/'+tn* (Z/10) ♦ V; U+tn' (Z/20 )*J 

137: if C<¥ ?g to +2 

138: if Z<M-6;gto "High Freq" 

139: if OY + 50 00 ; g to +2 
140: g to " sum" 

141: prt "High 6-dBV limit"," not reached" ;l-*-r 28 
142: "High Freq": 

143: fmt "High Freq: ",£5.0;wrt 16,C;C*rl7 

144: rl7-rl6>rl8; fmt "Signal BW: ",f5.0;wrt 16,rl8;gto 

14 5 : ** (jg * 

146*: fmt "L" ,f .1, "=" ;wr t "SYN" ,C; wait 10 
147: wrt "3P E ANA" , "T" ;f rot f.2;red "SPE ANA" ,Z 
148: ret 

149: " " : 

150: "prtdata": 

151: fmt b, "V" ,b , " = " ,el2 . 3 jwr t 16, 126, 29 , V 
152: U-*-rl9; V*r20 } beep; wai t 500;beep 
153: fmt "L" ,f . 1,"=M100=Y" ; wr t "SYN" , Y,* lcl 7 
154 : " 


"pr tdata" 
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155: "Footprint Area"; 

| 1.56: 9 sb "Beamwidth" 

! 157: txd If pit "Along-trk IM: ", rG ,"Crosn-trk l3W:",r7 

L58: R*tan (r 7/2) *’A 
f; 159: U/cos (A- r6/2) ♦£» 

j 160: M/cos ( A+ r 6/2 ) ♦T ; T-£> W \ 

161: V (S*3 + i'*T-2*S*T*COS(r6) )/2*Y 
, - 162: v*X*X+A} A*c21 

| 163: tint "tfootor int (£ t" ,b, ") *" , /, 1 16 . 2; wr t 16, 29, A 

# 164: " ": 

165: "Calibration Data": 

| 166: " 1.6 GHz *4.75 GHz 9.5 GHz 13.3 GHz": 

168: " Sum of V"2 HH 29.925 6.91 .2386 .508 "! 

i” 169: " VV 26.85 3.737 .623 .4481": 

ir 170: " Range (£ t) 79.3 79.3 77.9 77. 9 

% 171: " Delta Frcq 10.0 10.0 10.0 10.0 ": 1 

„ 172: " .Sigma (sphere) 12.57 12. 57 12.57 12.57 ": j 

jh 173:" " : I 

i L 174: " [3 igma( spncrc) )/ ( (Sum of V*2) (Delta Free) ( Range ) *4 1 ": j 

175: it f’i) 1. 6 ; q to +4 . I 

T 176: iL F $ l D ) -" till" ; lo-9 >K ‘ \ 

,*'■ 177: it t»$|0|* , W";1.134e-9*K | 

17b: U t> 6 |D)="HV" or P$ { D] = " VH" ; 1 . 09 2e-9-*K I 

179: it F M. 75; y to +4 

160: if «? $ [ 0 ] =" H H " ; 4 . 6 e- 9 + K | 

181: it P $ ( J ] =" V V" ;8 . 50 6 e-9*K | 

182: it P$[0J="lW" or P$ ( D)*»" VH" ; 6 . 553e-9+K j 

183: it Fj»9.5;gtO +4 f 

184: it P?(D} =" HH" ?1. 431e-7*K 
185: it p $ ( 0 ) =" v/ V" ; 5 . 47 9e- 8*K 
186: it P 5 1 D ] =" HV" or P$ [ D)*=" VH" ; 9 . 895e-8*K 
187: if F 1 1 3 . 3 ; g to +4 
188: if P?(D] =" HH";5.805e-0*K 
189: it P?(D]="VV" ;7.617e-8-K 
j; 190: if P $ [ D ] = " H V" or P$ ( D] = " VII" ; 6 .7 lle-8+K 

191: K*r 22 

192: " ": 

| _ 193: "Sigma Zero Calculation": J 

1 •• - 194: " Sigma Zero=K*{(Sum of V"2) (Delta Frcq) ( Range)^ l/(Area) ": ( 

195: K*v/* 10*R*4/A *S j 

p 196: it F D 4 . 75; g to +3 

197: if R<=75; S*tn" ( (-17.97 + .5065*R-3. 566e-3*ir2) /10) ♦S | 

190: if R>75;S*tn~( ( . 154 6+ . 01131* R-l. 6 73e-4*R ~2) /10) -S 
139: St 23; lOiog (S)*r24 
if 200 : prt "**********m**** h ;soc 

201: txd 2; prt "Sigma Zero ( dB) =" ,r 2 4, "****************" j spe 
202: txd l;prt "Sweep Rep Rate=",r25 
r 203: W*r9/( 2*r25) +r26 

I 204 : prt "No of ind Sniplss” ,r26 ; spe 

205: " ": 
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206: "Record Data on Tape": 

207: ent "Record Data on Tape? l*yes 0«no",X;ifc X=0;-l“*A;gto "Ip" 

208: id fc A , X , ¥ , X , X 

209: it' ¥jfU;tat A+ljgto -1 

210: ret A,r23;lxd l);prt "Tape No*" ,r 30 /'Track Wo*" ,X, "File No»",A 
211: it X=0 jg to "trk 0" 

212: if X= 1; g to "trk 1" 

213: "trk 0":i£ A#r31-l;gto "lp" 

214: it tlglljgsb "Line Printer" 

215: it trgil; beepjwait 500;beep jwait 51) 0; beep 

216: it tlgilyent "Cnange paper (track sw itch) jCOnt" ,Z; l*d 

217: rewjtrk ljl+r33;gto "inc" 

218: "trk l":it Aj)r32-i?gto "lp" 

219: it tlglljgsb "Line Printer" 

220; beepjwait 500 j'beepj wait 500jbeep . 

221: ont "Change Data Tape & papc?r",X 
222: 3 pc J j J + 1 + J ; st'q lOjgto "Tape" 

223: tlglljgsb "Line Printer" 

2 24 : " i nc" : epc J ; + J *.'J jg to " Time " 

225: " ": 

2 26: " iloaiiiwidCn" : 

227 : " r S=\ long-track Beamwiuth 1 ' : 

226: " r 7-C ross-track Beamwidth": 

229: "1.6 GHz": 

230: it Flfl.bjgto "4.75 GHz" 

231: "1.6 HH" : i fc P? [D)ff "HH" ;g to +5 
232: it R< = 7 5; 4. 35429+ . 0 5697* R- . 0004 *R A 2+r 6 
233: it R<=75j-1.97+.21079*R-.00113*R A 2+r7j l-r5j ret 
2 34: b. 44416+ . 000 34 *R-. 00001*R A 2*r6 
, 235: 12. 01074-.U8064*R4-.00027*K A 2*r7;l*r5;ret 

236: "1.6 7V": if. P$ ( DJ If" VV" jgto +5 
237: it R< = 75j 4. 11857+. 09456* R- . 00067*P~ 2*r6 
238: it k< = 7 5; - 2. 8 167 1 1 - . 201 59* R- . 001 0 7*R < ' 2-* > r 7 j 2 + r 5 j re t 
2 39: 7. 4 0 35 5+ . 00359*R“. 000 04*R A 2*r6 
24 0: 10. 987 27-. 08472*R+.0 0029*R"2^r7; 2+r5jret 
241: "1,6 ilV" : it R$ [ D] If "ilV" ;g to +5 
242: if R< = 75; 4 . 287 14 +. 067 5 * R- . 0 004 7*R A 2*r 6 
24 3: it R<®7 5? - 2. 4 GO 57 + . 2 1 109* R- , 0 01 14 *R A 2 + r 7 j 3*>r5jret 
244: 6. 718 27 + . UUL4 6*R-. 00002*R A 2-*'r 6 
24 5: 1 1. 64 727- . 0H4 72* !i + . 00029* R A 2 *r 7 j 3+r 5 ; ret 
246: "1.6 Vil" : il. K< -"75 ;4 . 25429+ .U77*K-. 00054*1'.* 2*r6 
247: it R< = 7 5j - 2 . 50 714 + . 20273 * R- . 001 07*R A 2+r 7 j 4+r 5 ; re t 

248: 7.2292b-. 00296*R-r6 

249: 11. 4 04 68-. 0852 2*U + ..U.0029*R A 2+r7*4*r5; ret 
250: "4.75 GHz": 

251: if F # 4 . 7 5 j u to "9.5 GHz" 

252: "4.75 HH":it P$ l 0} if " HH" ;g to +5 

253: if R<«75;-4 .12714 + . 179 73 * R- . 0 01 2 7*R A 2+r 6 

254 : if R<=75;-6 . 5428o + . 20026 *,R-. 001 06*R A i ♦r 7 ; l*r5;ret 

255: 1. 909+ . 01 062*R-. 00009* R*2*r6 

256: 6.7742-.07536*R+.U0024*R A 2>r7jl^r5jrc t 
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257: "4.75 VV": it P$ [ D ] # "VV" ;y to +5 

258: if R< = 7 5; -8 . 36+ . 312 29* R- . 002 23*R A 2+r6 

259: it R< a 7 5; -6. 76+ . 20086*R-.Q0109*R A 2+r7; 2+rS; ret 

260: 2.35913+.01123*R-.00011*R A 2+r6 

261: 6. 5974-. 07891* R+. 00027* R A 2+r7 ; 2*r5; ret 

262: "4.75 .IV": it P$ [ D] # "HV" ;g to +5 

263: if R<*75; - 5+. 20926*R- . 00149*R A 2*rC 

264: it R< = 75;-6.17429+.18923*R-.001*R A 2-*r7; 3*r5;rct 

265: 2.14738+.00924*R-.00008*R A 2-r6 

266: G. 6 9004-. 07691*R+.00026*R a 2-mc 7 ; 3-r5; ret 

267: "4.7!? VK": if R< = 75 ;-6. 6514 3+. 257 0 3*R-. 00 U;3*R*2*r6 

268: if R<=75;-7.10857+.211O9*R-.OO114*R A 2+r7;4+r5;ret 

26 9 s 2 . 2 4 7 1 9+ . u 0'rf 9 7* R- . 0 00 09* R A 2 *r 6 «, 

270: 6.8 2996- . 08 ,L30*R + . 00027* R A 2 *r 7 : 4*r 5; r ct 
o ; i . "o 5 » . 

272: if ’f’ff 9. 5? 4 to "13.3 GHz" 

273: "9.5 rlH":i£ P$lD] # "HH",*gto +5 

274: it R<«'7 5; 2, 62+. 02003* R- . 0001 4 *R A 2+r 6 

275: if R< = 75; . 19857 + . 0737*R-. 00039*R A 2+r 7 ; 1+rSjret 

276: ? 3826-. 00069*R-*>r6 

277: s.40675-. 0335 5*R+. 00012* R A 2-r7;l*r 5? ret 

278: "9.5 VV" : if P$ [ U ) » " VV";gto +5 

279: if R<=75; 3. 19236+ . 01133*R-. 00007*R A 2-r 6 

230: it R<=75; .13714+. 06891*R-. 00034*R A 2-r 7; 2-r5;ret 

231: 3. 71333-. 00093*R-r6 

28 2: 4 .91359-. 027 32*R+.00009*R A 2*r7 j 2«-r5?ret 

28 3: "9.5 11V" : if P$ t D) # "HV" ;g to +5 

234: it R<=75;2.79+.01859*R-.00013*R A 2*r6 

205: if R< = 75;-. 35857 + . 00567* R-.00047*R A 2+- r7; 3*r5;ret’ 

236: 3. 53333-. 00093* R-'-rS 

237: 5.22087-.03243*R+.00011*R A 2-r7;3-r5;ret 

288: "9.5 VH" : if U<»75 ;3 .03236+ .01133*R-. 00007*R A 2*r6 
289: if R<*75? . 34857+. 06777* R- . 00034*R A 2+r 7; 4*r5? ret 
290: 3.55333-. 00093*R+r6 

291: 5.26753-.0319*R+.00011*R A 2-r7;4>r5;ret 
292: "13.3 GHz": 

293: if B'#13.3;gto "Incorrect" 

294: "13.3 HH":if P$ [ Dl# "I!H" ;g to +5 

295: if R< = 75; 1. 79+ . 01859* R- . 0001 3*R A 2*r 6 

296: if R< = 75;-. 27857+. 06 564* R- . 0003 3*R A 2*r 7 ? l*r 5; r e t 

297: 2. 3 86 75+. 00218* R-. 00002* R a 2-*-e6 

293 : 4.32433-. 027 16*R+. 00009* R A 2+r7 ; 1+r 5; r ct 

299: "13.3 VV":i£ P$ [ D] #" VV" ;g to +5 

300: if R< = 75; 2. 2 3+ . 01859 * R- . 0001 3*R A 2+r 6 

301: if R<=75;-. 07b57+.06164*R-.00033*R A 2+r 7; 2*r5;ret 

302: 2. 9626-. 00069* R*r6 

303: 4 .11212-. 0 252 4*R+ . 00003* R A 2+r7 ; 2-r 5 ; r e t 

304 : "13.3 HV":il P$ [ D] jTHV" ;g to +5 

305: if R<=75; 1. 69714 +. 02809* R- .0002*R A 2-r 6 

306: if R<=75;- . 5057 1+. 0721 7* R- .0004 *R A 2-r 7 ; 3-r5 ; r et 
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307: 2. 70070+. 000 32*11-. 000 01 *1^2 >r 6 

308: 4 . 3480 6-. 030 51 *R+ .0001 1* Ff2*r 7 ; 3*r 5 ; r et 

309: "13.3 VII": it K< = 75 ;i . 994- .01 859 *H-. 0001 J *H*2+r6 

310: it u<=75;- . 12 205 + . 06491* R- . 00034*R'‘2*r 7; 4*r5j re t 

311: 2. 6 00 78 F. 0(H) 32* R-. 00001 "FT 2 *r 6 

312 : 4 . 4 0084- . 0 295* lU .0001 * R* 2-r7 ; 4 +r 5 ; r e t 

313: "Incorrect" :dsp "Incorrect Frequency jpress CONT";stp ;gto "Fron" 
314: " ": 

315: "Line Printer": 

316: if 8=1; f mt ,24x, "Tape No: ",£3.0;wrt 6,r27 
317: it Ll = l;fmt 23x, "Track No: " , £ 3%-0 , 2/; wr t 6,r30 
318: it A<0; tint "File Mo: N/A" ,7x , z ; wr t 6;qto F2 
319: lint "File Mo: " f £4 . 0 ,7 x, z;wr t 6, A 
320: tint "Look Angle : ", £5 . 1, 5x, z ; wr t 6,rl2 
321: £mt "I,F F ret]: " ,£6. 0 ;wr t 6,rl5 

322: tmt "Date: " ,£2. 0 , , £2 . 0 ,"-" ,£ 2. 0 , 5x ,s ; wr t 6 , rO , rl , r2 

323: int(rll)+X;100*{ rll-X)*Y 

324: tint "Time: " , £3. 0 , " : ", f z2 . 0 ,10x , z ; wr t 6,X,¥ 

325: tint "Delta Freq: 10";wrt 6 

326: £snt "Scat Freq:",z;wrt 6 

327: if r4=4, 7 5; fmt £5, 2 x, z;wr t 6,r4;gto +2 

323: tmt £ 5. 1, 4 x , z ; wr t 6 , r4 

329: tmt "H eight ( cor r) : " , £5 • 1, 3x, " Ftprnt Area: " , £ 6. 1 ;wrt 6,rl3,r21 
330: fmt "Polarization: ",z;wrt 6 
331: i£ r5=l;£mt "HH" #3x, z; wr t 6 
332: if r5=2;£rnt " VV" ,3 x, z;wr t 6 
333: i£ r5=3;£int "HV" ,3x, z;wr t 6 
334: if r5=4;fmt "VH",3x, z;wr t 6 
* 335: if r27=l; " L" ♦L? | 1 ) 

336: it r 28=1; " U " ♦L? (11 

337: if r27=l and r 28=1 ; "LU"-L$ 

338: tmt "Range: " ,£6. 1 ,9 x, "Sgir.a Zero(dB) : " ,£6. l,z ; wr t 6,rl4,r24 
339: £mt lx,c2;wrt 6 , L$ 

340: fmt "Site Mo: ", £5. 2,6x, z;wr t 6,rl0/100 

341: tmt "3 ig Bndwtn: ", £3 .1,2 x, "Ind Smpls: " r £6. l,/;wrt 6,rl8,r26 
342: 8+ 1>3 

343: if (3>9; beep; wait 500;beep;wait 500; beep 

344: if 8>9;l*8;ent "Change paper ;press CONTINUE" ,X 

345: ret 
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0: “File 2: Calibration and RCS Comparison 7-9-02”: 

Is" " ; 

2: dim P$12) 

3: dev "3¥N" , 704 , "SPE ANA", 7 17 

4: prt " Calibration”," "jcpc ;lcl 7 

5: ent Month?" ,r 0 ," Day ?", rl , ” Year ?” , r 2 
6 : " * " : 

7: "Tape”: 

8: ent "Insert D*ata Tape; press CONTINUE” ,X 
9: ent "Data Tape Number?", r20 

10: ent "Record Data on which trK? 0 or l",r21;trk r21 
11:" " : 

12: "Freq" : ent "Scat Freq(GHz) ?" ,F; F + r 3 
13: it F*l.’6;prt " 1.6 GHz System" 

14: if F=4.75;prt "4.75 GHz System" 

15: if F=9.5;prt "9.5 GHz System" 

16: if F*13 . 3; pr t "13.3 GHz System" 

17: ent "Polarization? HH or VV" ,P$ ; 1+r 4 ; if P$*=" VV"; 2*r4 
18: fmt c2," Polar ization" ?wr t 16, P$ 

19: " " : 

20: "Range Offset & Freq/Rng Slope": 

21: " The values for these parameters are determined": 

22: " tor each frequency from File 3: Range Offset-": 

23: " Freq/Rng Slope Program": 

24: ent "sweep Repetition Rate?" , r 22; f xd l;prt "Sweep Rep Rate:",r22 
25: if F = l. 6;26. S*r5 ;1. 025*r22-r6 
, 26: if F-4.75; 19.1*r5;3.5l3*r2 2-*r6 

27: if F=9.5; 12. l+r5 ;3.607*r22+r6 
23: it F = 13.3; 7.9+r5;3.595*r22+r6 
29: " ": 

30: "Target": 

31: ent "Cal Target? " ,Tj T*r 7; spe ;fxd 2; prt "Target:" 

32: if T=l;prt " 1 tt diam Pla te" ; . 5+r 8 

33: if T= 2; pr t " 2 tt diam Plate";l+r8 

34: if T=3;prt " 3 ft diam Plate" ; 1 . 5-*>r 8 

35: it T=4;prt "4 ft diam Sphere" ; 1. 5+r 8 

36: if T=5;prt " 2 ft Corner"," Ref lector" ; 1. 547-*r8 

37: " 

38: "Date and Time": 

39: spe ;fmt "Date: " , f 2. 0 , , f 2. 0 -" ,f 2. 0; wr t 16,r0,rl,r2 
40: ent "Time( hr. min) ?" , r9;f xd 2; prt "Time( hr .min) : " , r9 
4 1 : " " : 

42: "Range and Frequency": . 

43: spe ;fxd l;ent "Range (ft) ?" ,R; pr t "Range( f t) : " ,R 
14: if T=4;R-2*R 
'3 5: R + rlO 
46 « r 6 ( R+r 5)*C 

47: ent "Ready tor data? press CONTINUE", X 
43 : " 
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49: 

50: 

51: 

52: 

53: 

54: 

55: 

56: 

57: 

56: 

59: 

60: 

61: 

62: 

63; 

64: 

65: 

66 : 

67: 

66 : 

69: 

70: 

71: 

72: 

73: 

74: 

75: 

76: 

77: 

76: 

79; 

60: 

HI: 

62: 

83: 

64: 

85: 

66 : 

87: 

86 : 

89: 

90: 

91: 

92: 

93: 

94: 

95: 

96: 

97: 

98: 

99: 


"UP 333 0!i frequency Synthesizer and 3S71A Spectrum Analyzer 
8 Frequency Synthesizer 1 ': 

Center Frequency; Variable": 

M Frequency Step: 10 Hz": 

* Time/Step: 10 ns"; 

" Spectrum Analyzer": 

* Display Net: dBV": 

" Display Smoothing: On": 

M Uanuwidth: 1000 Hz": 

" input Range: +10 dBV": 

" * Input Impedance: 1 megohm": 

” Measurement Control Mode: external": 

"Setup": 

rem 7; tint "PlSld5V7 Z2M1" ;wr t "SPE ANA" 

« ii . 

"Center frequency Search": 

C-50 50+C; -70+M ; 5U*X ;gsb "search" 

Y-1G10*C; 10+X;gsb "search" 

Y*C*rll;yto "prti’req" 

" sear cl) " : 

tor 1=1 to 200 

C+XC 

fmt "L" , £. 1," =" ;wr t "SYN" ,C; wait 5 

wrt "SPE ANA" , "T" ; fmt f.2;red "SPE ANA",Z 

if 2>M; Z+M; C+Y 

next I 

ret 

"prtfrecj"; t'xd 0;prt "Center Preq:",C 

•f n . 

"Summation of Data between -6 dBV Points": 
gsb "data" 

Z*M; 0*rl8-**rl9 

C-10+C 

gsb "data" 

it Z<M-6 ; g to "Low Preg" 
it C<Y-500U;gto +2 
gto -4 

prt "Low 6-oBV limit not reached" j 1+rlO 
"Low Fred": 

prt "LOwtreq: ",C;C*rl2 
gsb "data" 

tn* (Z/10) *V ; tn~ ( Z/20) ♦U 
" sum" : 

C+10C 
gsb "data" 

V + trr (Z/10) ♦V jU+tn* (Z/20) ♦0 
if CCYjgto +2 
it Z<M-6;gto "High Freq" 
if C>¥+5000;yto +2 
gto "sum" 

prt "liign 6-dav limit not reached" ; l*rl‘J 


Setup 
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1 00 s “High l* reo": 

101: prt "High brecj:%CjOcl3 

102: r 1 3-ri2*r 14 ; pr t “ Signal JiW; “ f rl4;spc ;gto “ortdata" 

103: “data": 

104: tmt "L," ,t .l,“*“jwrt "SXN" ,Gjwai t 10 
105: wrt “SPi: AW A" , “T" ; tmt f . 2 ; i oa %’Pi AW A “ , 5 
106: ret 
107: ” 

10(1: “nr tun to": 

1 1) v : u ♦ i J ft; V+L'lu 
J [O * |,Tt * A**#*# ft#***# * A •< 

111: lint h ,"V" ,1-1, “«",el2 . 3;wrt 10 ,120 ,29 ,v 
112: L i it “r," , L .l,"=.Mi00*l'" ;wt t "3YN M ,tf? lei 7 
113: “ “: 

114: “Target Sigma": 

115; it 1*1; U . 0i 3ti 
110: it T=2; 120.2 *t'*2+S 
117: it T*3 ’j 649.03*F“2*G 
lid: it j.'* 4 ; 12. 57+S 
110: it T=5;17. J59*F A 2-S 
120: S*rl7 

121 : “ “: 

122: ptt "Delta Preq=10 Hz“ 

123: txd 1 ; prt “Cal Range (ft) =",R 
124: prt "9 igma (Target ) = " 

125: tint tl2.2," ft",b;wrt 16,S,29 
120: prt ,, *************»**"jspc 
127: " 

120: "Record Data on Tape": 

120: ant " Re cor a Data on Tape? l=yes 0*-no",X;it X=0;gto “compare" 

13U : iat A,X,7 

131: it VifUyldt A+l;gto -1 

132: ret A,rl9;txu Oyprt “Taco ImO-“ ,r20, "File .,o=">A 
133: “ ": 

134: “compare": 

135: ent “Compare actual to calc rcs?l»yes" , X; if x#l;gto "mordata" 
136: prt “Target RCS(calc)" 

137: tmt Ox , “ = " , 1.6 . 2 , " dB";wrt 16,ldlog(S) 

130: if m.Gygto +3 
139: it P$="HU" ;lo-9*K 
140: if P$ = "VV" ;1.184e-9-*K 
141: if Ffl4.75;gtO +3 
142: if k>$="HH" ;4. 6e~9*K 
143: if P$="VV" ;fi.506c-9-*-K 
144: it fc'#9. 5; gto +3 
145: if P$="HH" ; 1. 431e~7*K 
146: if |?$«*vV";5. 479e-8*K 
147: if t‘|}13. 3; gto +3 
146 : it ,P$=" Hli" ; 5. tiU5e-U + K 
149: if P$="VV" ;7.617e-(i*K 
150: K*V* 10* r R''4 *X ; 1 Olog (X) ♦ V 
151: prt "Target RCS(meas)" 

152: tmt 6x ,“=" , to. 2, " d6";wrt 16, Y 

153: ixu 2 ; pr t "Delta F,CS*“ ,Y-101og (S) ; epe 3 

154: “ 

155: “mordata": 

156: ent "Take more cal data? l=yes 0=no" ,Xy it X*l;spc 3;gto "Freq" 
157: epe 3; end 
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U: 

1: 

2 : 

3: 

4: 

5: 

6 : 

7: 

8 : 

9: 

10 : 

11 : 

12 : 

13: 

14: 

lfc: 

16: 

17: 

IB: 

19: 

20 : 

21: 

22 : 

23: 

24: 

25: 

26: 

27: 

28: 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47: 
48: 
45: 
50: 


i 

ommi 

OF POOR QUAUTi, 

"File 3: Plot Ground Scat Sweep on HP 9871A Printer 7-31-81": 

H II . 

dev "SYN" ,704 ,"SPE ANA" ,717? lcl 7 

dim D (100) , L| 100J ,L$(20] ,F$(14] ,S$[25) ,P$[11) ,T$f25) 
gto "start" 

"loc": 

wtb 6,27,65, int<120X/64) ,int(120X) ,int (96Y/64) ,int(96Y) 


ret 

M cl 

Cor 

if 

if 

if 

if 

if 


Ar. M : 

1*1 to 25 
l>len(L$>) ?if 
I>len(F$) ?i£ 
I>len(S$) ;if 
I>len ( P$ ) ? if 
I>len(T$)?if 
I* 


"♦L${I ,1] 
"♦F$ II.J1) 

"^p$ (i,i] 


♦T6(I,I] 


1 <* 20 ? " 

I <*14 ?" 

X<-25?" 

Z <*ll? " 

K-25 ?" 

next 
ret 

"info": 

ent "scat Frequency?" ,P$, "Polar isation?", P$ 
ent "Site?", S$, "Date?", T| 
gsb "cl Ar" 
ret 

"prtinfo": 
if flgl«l?gsb "loc" 

fmt "Scat Freq: ",cl4,"Site: ",c25?wrt 6, F$,S$;wtb 6,27,10 
if flgl«l?gsb "loc" 
fmt 9" ",16x,4"_"?wrt 6.,. 
if flgX^l?y-. 2+Y?gsb "loc" 

fmt "Polarization: ",cll,"Date: ",c25?wrt 6,P$,T$?wtb 6,27,10 

if flgl*l?gsb "loc" 

fmt 12"__" ,13x,4"__" ?wrt 6 

ret “ , 

"start":ent "Minimum frequency in Hz?",L?cfg l?cfg3 
ent "Maximum frequency in Hz?",H 

rem 7 ; 

{H-L ) /100+S 

fmt "R1S1Q5V7 Z0Ml"?wrt "SPE ANA" 

fmt *L", f . 2 , "=m" , f . 1 ," *R" ? wr t "SYN" , L, S 

fmt f.2?red "SPE ANA" ,X;X*D f 1] ? 10 A <X/20)*L [1] 

for 1=2 to 100 

fmt ; wr t "SYN" 

frnt f . 2? red "SPE ANA" ,X?X*D [I } ?10*(X/20)-*L(I) 
next I > 

(L+H) /2+F 

fmt "L", f . 2 , "*Y" ?wr t "SYN",F 

lcl 7?ent "Print Data? l*yes 0-no", X; if X*0?gto 
ent "l)Linear or 2)dBV?",X?if X*l?sfg 3 
dsp "Ready to Print?" ?atp 
wtb 6,27 ,69?fmt 5x,z?wrt 6 
wtb 6,27,77?gsb "info" 
gsb "prtinfo" 


"PjLot" 
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tmt /, " Freg M ,Gx , "Ampl. " ,14x, " Freq",6x, "Ampl." jwrt 6 
Hint 2" (Hz) ( dBV) ",/ 

if Ug3»l;£*f: 2" (Hz) (Volts) ",/ 

wrt 6 

L+F; L+50S+G 
tor 1*1 to 50 
I+50+J 

D 1 1 )**X; D (J | +Y; if flg3*l;L(I] ♦ XjLf J )-*Y 

tmt 1, t5.0,6x,£5.1,14x,£5. 0,6x,t5. 1 

if flq3*l;£mt 1, £5.0,6x,t5. 3,14x,t5.0,Gx,f5. 3 

wrt 6.1,F,X,G,Y 

F+S*F;G+S>G 

next I 

cfg 3 

“Plot "sene "Plot Data? l*yes 0*no",X;i£ X*0;gto "end" 

ent "1) Linear or 2)d3V?",X;if X*l;sfg 3 

dsp "Ready to Plot?";stp 

wtb 6,27,69;wtb 6,27,B4jwtb 6,27,77 

wtb 6, 27, 87, int (7*120/64) ,int(7*120) 

wtb 6 ,27, 76, int (7*96/64) , int (7*96) 

wtb 6 ,27 ,70, int (8*96/64) , int (8*96) 

wtb 6, 27, 79, int (1*120/64) ,int( 1*120) ,int (1* 96/64) ,int(l*96) 

o*x?o*y 

gsb "loc" 
wtb 6,"-" 

if (X+. 1+X) <5. Ijgto -2 

0*X;0+Y 

gsb "loc" 

wtb 6 ," |" 

if (Y+.l-Y) <5.1;gto -2 

if fig 3=1 ? " A'll? LITUDG I Volts"*L$; 17*N;gto +2 

"AMPLITUDE I d!3V"*L$,*15->N 

3.8J*Y;-.9-X 

for 1-1 to N 

gsb "loc" 

tmt cl; wrt G , L$ ( I , I ) 

Y-..16+Y 
next I 

if £lgl=0;gsb "info" 
sfg l;0*X;-.6+Y 
gsb "prtinfo" 
if flg3*l;gto "linear" 

"dAV" :-.3-X 

tor I=-7 0 to 10 by 10 

5/80* (1+70) *Y 

gsb "loc" 

fist f3.0, jwrt 6,1 
next 1 


100: gto "freq' 







1 


101: 

"1 

inear " : 


102: 

max(L| * I ) ♦ 

M 

103: 

it 

M<=3.2; 

3. 2*W; . 4>b 

104: 

it 

M<*2. 4? 

2 * 4+W ; .3-M3 

105: 

it 

MOl. 0; 

1 • 6-» W ; . 2 ♦ B 

100; 

it 

NO. 0; . 

8+W; . 1+B 

107: 

if 

MO .32; 

. 32+W ; . 04 

108: 

it 

MO. 24; 

,24*W; . 03+B 

109: 

if 

NO. 16; 

.16+W; .02*B 

110: 

if 

f-10.08; 

. 00*W; .01*B 

111: 

if 

MO. 032 

; . U32*W; . 004 

112: 

if 

MO . 016 

; . 016*W; .002 

113: 

™ • 

5*X 


114 : 

tor 1=0 to 

8 

115: 

5/W*I*B>Y 


116: 

gs 

b "loc" 


117: 

fmt £5.1," 


118: 

it 

MO. 32; 

fmt £5.2,"-" 

119: 

if 

MO. 032 

;£mt £5.3,"- 

120: 

wr 

t 6,I*B 


121: 

next I 


122: 

"f 

req" : if 

MOIOOO ; " Hz" 

123: 

if 

1) >1 000; 

" kH2"*>L$;gsb 

124: 

1. 

6 *X; - . 4* 

Y;gsb "loc" 

125: 

fmt "FR&QU 

KNCY ~ , c2 0 


ORlWAt 

OF POOR 


/ ' V /' 


1.20: i£ U-LOIOOO; 100-*-K;gto "pltdat" 

127: it H-f..<=5u00; 500+K;gto "pltdat 0 
128 : it H-L <= 1000 0 ; 1000 ♦K;g to "pltdat" 

129: it H-L050000; 5000-K;gto "pltdat" 

130: it U-ti<=100000;10000+K?gto "pltdat" 

131: dsp "Desired plot outside prog design" ?stp. 

132: "pitdat": 

133: for 1=0 to 10 by 2 
134: . 51 ♦X; 0-*Y ; gsb "loc" 

135: tint " | " ;wr t 6 
136: -.2*Y 

137: L+K*]>P;it H>1000; P/1000-P 

138: it int (P) #P;f mt 2 , f5. 1;X-. 3*X;gto + 2 

139: fmt 2 , £4 . 0 ; X-. 2+X 

140: gsb "loc" 

141: wrt 6. 2 r P 
142: next I 

143: 0-X? 5/80^ (D [1] -f-70) ♦V ; if fig 3= 1; 5/W*L [ 1] -Y 
144: gsb "loc" 

145: for 1=1 to 100 
146: . 5* (1-1) *S/IOX 

147: 5/80*(D[IJ+70)+Y;if fig 3=1? 5/W*L ( I) -Y 

148: wtb 6,27,97,int(120X/64) ,int(120X) ,int (96Y/64) ,int(96Y) 
149: next I 

150: "end":ent "More Plots? l*yes 0»no",X;i£ X«l;gto "start" 
151: wtb 6, 2 7,6 9; end 
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U: 
1: 
2 5 

3: 
4 : 
5s 
0 : 
7; 
H: 
9: 
10 
11 
12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 


"File 4: Range oLfset - Freciuency/Kangt- Olooe 8-5-32": 

it H , 

"I nit": 

dim D( 4 ,6) , F 141 

net "Range otfset-"," Freq/Pnq Slope" 

prt " "jspc * 1 cl 7 

dev "SSfN" , 704, "SPfc AWA",717 

h ii . 

"Freq": 

ent "Sqat fc'req(UUz)? It no more, CON?" ,F; i 1 tLql3?gto -'Calc 
iXC l; it F=4.75?lxd 2 
prt "Scat trey (GHz) b'j fcxd 1 

ent "Range (L t)?" ,K? tmt "Range (t t) : " ,16. L; wr t 16 ,R 

ent "Frequency Repetition Hate?" ,L; prt "Freq Rep Rate:",b 

ent "Ready to take data? .CONTINUE" , K 

il F*1.6;19.6+rU;164.9+rl;l+I ;V (R A 2+. 22) +1. 25*Rj 1 . 6*F (1) 
it F“4 .? 5; 15. I*r0 ; 550 . 7* tl ; 2*1 ? V ( R"2+. 22) +1. 25*R; 4 . 75* F (2) 
it F =9. 5; 13. 4*r0 ; 573 , 6*rl; 3*1 ; V (R~2-2 3. 02) -. ll*ft; 9. 5*F (3) 
it F = 1 3 . 3 ; 16.2*rU;52 7*rl;4‘*I ?V(R'‘2-23. 02) -. U«-R; 1 3. 3*F (4 ) 

H ii . 

" Data" : 
gsb "prtrng" 
ysb "search" 

0(1,1) +1*D Cl, 11 ?D( 1,21 +R*U( 1,2) ; D 1 1 , 3] +Ff2*D 1 1 , 3) 

D 1 1 , 4 ) 4C + D 1 1 , 4 ) ; D ( 1 , 5J +R*C* D ( 1 , 5 ] ? D j 1 , 6 ) •FL+O (1,61 

yto "Frea" 

« II . 

"Calc": 


»t 


28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


tor 1=1 to 4 

0(1 fit *Df I , 3] -0 f 1,2) ~2+X; if X = 0jgto +5 

(17 l I ,3J*OU,4J-D[I f 2]*DU # 5) )/X-Y 

(D [ I f 1J *D ( I , 5) -D 1 1 , 2 ) *D ( 1 ,4 1 ) /X+r>? Y/S -O 

D|I ,6] /DU , l)i- V, 

gsb "prtdata" 

next I 

pL # fc ******************** ;cnd 

« h . 

"prtrny";£xd Ijprt "Range (cor r) :" ,R; ret 

i* .. 

-• 

" prtdata" : 

prt "**************** ";£xd 1; it F=4.75;fxd 2 
prt "Scat Fc eq (GHz ) :",F[I] 

Ixd l;prt "Range Ottset*" ,G,"Freq/Rng Slope=" ,S 

prt "Avg Freq"," Rep Rate=",L;spc 2 

ret 

ii II , 

• 

" search" : 

r err. 7; tmt " R1S1B5V7 Z2M1" ; wr t "SRE ANA" 
r 1 (R+rO ) *C 

C-5050*C; -70+M; 50*X;gsb "scan" 

Y-1010^C; 1 0+X;ysb "scan" 

Y*C;gsb "prttreq" 
ret 

II ll • 

- • 
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54: "scan": 

55: for J=1 to 200 
56: C4*X*C 

57: fcir.t *'L M , C. 1,"=" ;wr t *CYIJ M ,Cy wait 10 

58: wrt "SPF, Ai4A M , "T" ; fint f .2; red "SPE ANA " f i 

59: if Z>M; Z*M}OY 

60: next J 

61: ret 

62: " " : 

63: "prtlfecj" : 

64: txci Oyprt "If Freq : w ,C; spe 2 

65: tmt "l, M , 1 . 1, "*IU00«Y M ywrt "SYN M ,C;lcl 7 

66: ret 


i 
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" i* ilc 5: m»r p IHitc. Film; to *lp*!-ti71A I’i: i »n,o r IO-tt-81": 

M M # 


uiii a | 50 | ; c|..< 13 
a fcl'i u , 2 7 f 5 1» ■ 

l.U.t 10x , ?. ; v<r t f>;wLb L , 27 , 7 7 ; wtb 6,27 ,5 '!• 
wtb t, 27, 70, im( 0*120/64) ,ink (8*120) 

wtifo 0 , 27 , 07 , ini ( 8 * 120 / 64 ) ,int ( 6 * 120 ) 
q n t " fa po .40 V " , T , " Tra c k No 7 * , f ; t r k P 
tint “Firm File No?”, A 
ont "Lest File No ? " , « 

10: enL " Exclude any riles? L-ye.V,X; ii:' Xfc l; gto “init" 

11 : for J-l to bO 

12: cot “File ’to. to Co excluded?" ,X; it £ Ig! 2*--l;gto "lnit H 
13: /♦XU I 
14 : nex l x 

1 ^ : 

16: "Init": 

17: fmt 2 4x , "Tape NO: " , £3. 0;wr t 6 ,T; 1>C 
IB's trot 2 3x , "Track lio: ", £3. 0, 2/;wr t 6,P 
19: "Cont": 

20: it A >13; 9 1 ° "■end." 

21 : lor 1=1 to ‘JO 

22: it A it u ; it A= X ( I ) ; A+ !♦ A ; g to “Cent*' 


23: next I 
24: 101 A,r0 

25: fmt “File No: " ,£4. 0,7x , "Look Angle:" ,fb. 1 ,L>x,z;wrt 6,A,rl2 
26: tint "IF Frog: " ,16 . 0 ; wr t 6,rl5 

27: init "Date: " ,£2. 0 , , £2 . 0, , £ 2 . 0 , 5x , z ; wr t 6,r0,rl,r2 

2ti : it ril>lu0; r 11/10 0>rl 1 

29: i nt( r 11) >X; 3 CO* ( rll-X) +7 

30: imt "Time:" ,13.0, z ;wrt 6,X 

31: if 10 >7 ; CiT.t " 0" , £ 1 . 0 ,10x , z ;wr t 6 ,Y ; ci to 42 

32: init £2.0, 3 0x,z;wrt 6,7 

33: imt "Delta Free;: l0";wrt 6 

34: lint ":icat l"r eg: " , z ;wr t. 6 

35: if r4»*I, /%; Unit 15 . 2 , 4 x , z ;w r t 6 , r 4 ;gt o +2 

J G : tii' l £5 . 1 , 4 x , v , ; wr t 6 , r 4 

37: fnt "Hcightjcoi; r ) : ",C5 . 1 , 3 x, "1 lornt Area: ", £6 . 1 ; wr t 6,rl3,r21 

36: tint "Polarisation: ",z;wrt 6 

35: it r5-l; tmt "HH" ,3x, z;wr t 6 

40: if C 5~ 2; t* mt "VV" ,3x, z;wr t 6 

41: it r 5 = 3; £ ml "1W" ,3x, z;wr t 6 

42: if r 5=4 ; lint "V’d" ,3x, 2 ;wr t. 6 

43: fmt: "ftange: " , £6 . 1 , 9x , "Sgma Zero(dB) : " ,£6.1; wrt 6,rl4,r24 
44: rl0/.l00+rl0;£nit "Hite No : " , f 5 , 2 ,6x ,z ; wr t G,rl0 
45: fmt "Sig Lndwth : " , LB . 1 , 2 x, " Ind Smolr : " ,f 6 . 1 ,/;wr t 6,rl8,r25 
46: A4-1 *A; C+1*C 

47: if 09; ent "Change Paper - press CONTINUE" ,X; gto "Init* 

48: gto "Cont." 

49: "end": end 
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ORIGINAL PAGE 13 ! 

OF POOR QUALITY { 


0; -File 6: Dump Cal Files to LP9871A Printer 8-24-81": 

Is- « . 

2: aim X [ 5 0 1 yctg 13 
3: wtb 6,27,69 

4: fmt lOx , z ; wr t 6;wtb 6,27,77;wtb 6,27,84 
5: wtb 6,27,70 , int (8*120/64) , int (8*120) 

6: wtb C ,27 ,87 ,int (6*1.20/64) ,, int (0*120) 

7: ent "'tape wo?",T 
8: ent "First File No?", A 
9: ent "Last Pile No?",U 

1 0 : ent "Exclude any files? l*ycc",X;it xilygto "init" 

11: tor 1*1 to 50 

12: ent "Pile No. to be excluded?" ,Xy if flgl3*lygto *Init* 

13: X»X[I] 

14: next I 

15s" •• . ■ 

16: "In it"; i ' ’ ' * ' 

17: fmt 24x , "Tape No: " , f 3 . 0 , 2/; wr t 6,T;1*C 
It: "Cont": 

19: if A>13ygto "end" 

20: for 1=1 to 50 

21: if .AIOjif A=X [ I ) ; A+l*A;gto "Cont " 

22: next I 
23s ldf A,r 0 

24: fmt "File No: " ,f4. 0,7x, zywrt 6 ,A 

25: fmt "Date: " , f 2 . 0 , "-" , f2 . 0, , f2 . 0 ,6x , 2 ; wr t 6 ,r0, rl , r2 
26: if r9>100;r9/100-r9 ’ 

27: int ( r9) ♦X; 100* ( r9-X)*¥ 

28: fmt "Time: ",£ 3. 0, " zywrt 6,X 

29: if 1 0 > Y y £ m t "0",tl.0;wrt 6,Yygto +2 

30: fmt 12. 0; wr t 6 ,Y 

31: fmt 5x,"Scat Freq:", zywrt 6 

32: it r3=4.75;tmt t5. 2 ,20x, z;wr t 6,r3;gto +2 

33: fmt f 5. 1 ,20x , z ywr t 6,r3 , 

34:! fmt "Sum of v~2: ",e9.3;wrt 6,rl6 
3b: fmt 5x , "Polar ization : ",z;wrt 6 
36: if r4 = l;fmt "IlH" ,19x, z ;wr t 6 
37: if r 4 = 2; fmt " VV" ,19x, z ywr t 6 

}0: fmt "Delta Freq: 10 Hz" ywr t 6 , 

39: fmt 5x,"Cal Target: ",z;wrt 6 
40; if r7=lyfmt "1-ft Plate " ,13x , z ywrt 6 
41: if r7=2ytmt "2-ft Plate", 13x,z;wrt 6 
42: it r7=3yfmt "3-1: t Plate " ,13x , z ywrt 6 
43: if r7=4yfmt "4-tt Sphere", 12x, zywrt 6 
44: it r7=5yfmt "Corner Kef lector " ,7x ,z ywr t 6 
45: fmt "Range: ",f5.1ywrt 6,rl0 

46: fmt 5x, "Center Freq: ", £6. 0,16x, "Target Sigma: *,.?8*2jwrt 6,rll 
47: fmt 5x,"Sig Bandwidth: ", £5. 0,/jwrt 6,rl4 
48: A+l*AyC+l*C 

49: if C>8jent "Change Paper - press CONTINUE" ,Xj gto "Init" 

50: gto "Cont" 

51 : "cnd M :cnd 
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"file 7: Data Table 

II U « 


10-14-81": 


" Heading H : ' 

prt "insert Paper","Horizontally" jspc 

ent "See printer. React/ to print?" ,X 

dim A|7| ,X(100| ,A$(7,7| »D9(20J V P$|2| ,S$UG| 

tor I*J, to 100 

5000+XII) 

next 1 

wtb 6,27,09 

f.nt 5x,z;wrt 0;wtb 0,27 ,77,27 ,84 
wtb 6,27,70,10,672 
wtb 6,27,87,10,1200 

ent "This month?" ,M, "Day?" ,D, "Year?", Y 

ent " Scat terome ter frequency (GHz) ?" ,F , "Polarization?”, P$ 


15: 

it 

P$*"HH" 

1+P 

16: 

it 

P$="VV" 

2+V 

17: 

if 

P$«" HV" 

3>P 

18: 

if 

P$“" Vfl" 

?4>p 


ent "Date data taken?” ,D$ , "Site Name?",S$ 

ent "Data tape number ?" ,T, "Track Number ?" ,Q;trk Q 

tor 1=1 to 20 

it l>len (S$) j" "♦S$U,I1 

it i >len (D$ ) ; " "♦D$lI,fJ 

next I 

19 II 9 

"Angle": 

"Fir st"*A$ ( 1) ; "Second"*A$( 2) j "Third"*A$ [3] 

"Fourth "♦AS (4J ;"Fit th"»A$l 5) ? "Sixth "♦AS (6| j "Seventh"*A$ ( 7) 

ent "No of look angles( <*7) ?" ,N 

tor 1*1 to N 

dsp AS[IJ,"Look Angle?" 

ent " A 1 1 J 

next I 

dim ,D 10 :3N, 1:101 

II II . 

"Data": 

ent "Start File No?",L;I.*A 
ent "Stop File No?" ,H 

ent "Exclude tiles? l=yes U=no",X;if X*0;gtc "Load Data" 
prt "Excluded files:" 
lor i-l to 100 

ent "File number to be excluded?" ,X; if tlgl3;ctq 13;gto "Loau rata" 
X>X { I ] ;f xd 0;prt X 
next I 

H I* , 

• 

"Load Data": 
for 1*0 to 3N 
tor 0*1 to 10 
0*D ( I , J ) 
next J 
next I 
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52 : 
■,/3: 
54: 
55 : 
l>6 : 
67: 
5U: 
55 : 
6U: 
61: 
62 : 
03: 
o4 : 
65: 
66 : 
07: 
66 : 
69: 
70: 
71: 
72: 
73: 
74: 
75: 
76: 
77: 
76: 
79: 
80: 
81: 
62 : 
83: 
64 : 
65 : 
60: 
67 1 
6 b: 
8 9 : 
90: 
91: 
92: 
93: 
94: 
95: 
96: 
97: 
98: 
99: 
100 


I *c 

" 1 VI l. " : 

if A>ii;flto " in - boat a" 
i,or J-i to LOo 

II [J | ; A 4 1*A 
next J 

J.Jt A, r 0 ,i:20 
A + 1 -*/> 

x JL r 4 9 tc "idt" 

it ibiU^'jto “ 10 L " 

1 UU-»I 

lou 0=1 to 7 
it A[J J =rl2 ; J + I 
next J 

it l= 10 Q;gto "ldt" 
it L>lO,l]=U;riO/100-*-D[0,l] 
it rl0/100*D{ 0,C];C+1C 
it C<=10;rl0/100*D{0,C] 
it C>10; A-l+A;gto "Prtdata." 

3 < I — 1 ) +1*R 
A-l+D ( R ,C j 
r 24 +D { R+ 1 ,C 1 
r 26 >D { R+ 2 ,C ) 
gtO "l<lt" 

•i •• . 

"Prtdata": 

tir.t 7 5 x , 12 . U , , 1 2 . 0 , ,f 2 . U,/; wt t 6#M,0,Y 

lrr.t 35 x," JSC G POUND SCATTEROKETER" ; wr t 6 

wtb 6,27 ,10;£mt 35x ,24" J' ; wrt 6 

tint 42 x, "FIELD DATA"; wrt 6 

wtb 6,27 ,10; tint 42 >: , 1 U"_" ,/; wr t 6 

iiivt 17x, "Byctofii: " ,z ;Wr t 6 

Lint f 4. i , z ; it E=4 . 75; t nit t4.2,z 

wrt 0 , L 1 ' 

Imt " GHz" ,29x, "Date: ",c20;wrt 6 ,D$ 

wtb .6,27, lOjtmt 17x,6" J' ,39x , 4 "J*;wrt b . 

trnt 17 x, "Polar izat ion : " ,c2 ,29x, "Tape No: ',f2.0;wrt 1 

wtb 6 ,27 ,lU;twt 17x ,12" J' , 33x ,7"_" ; wr t 6 

tmt 17x, "Site : " ,c20 ,19x , "Track No : ",11. 0;wr t 6 ,S5,g 

wtb 6, 27, 10; tmt 17x,4" J' ,41.x , 0 wrt 6 

imt 4bx, "Sites" ;wr t 6 

wtb 6 ,27 ,10; fm t 45 x , 5 "_" ,/? wr t 6 

tmt 6 x, z;wr t 6 

for C=1 to 10 • 

if D(0,C)=0;fmt 8 x,z;wrt 6 ;gto +2 

tmt 4x , 14 . 2 , z ; wr t 6 ,D ( 0 ,C) 

if Ol 0 ;wto 6,10,13 

next C 

: tmt "Angle'*;wr t 6 
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,P$,T 





•* wmt *• 
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ORIGINAL PA£S IS 
OF POOR QUALITY 

101: tor 1*1 to U 
102: [rot Sx , a ?wr t 6 
1 03c Jd-D+l^R 
104: tor C=1 to 10 

105: iE D(R,C]=0?iE D [R+l ,C ] -0 ; if D (R+2 ,C ) te 0 ; Em t ex, 2 |wrt 6*gto +2 
106: tint 5x, £3 . 0,z;wr t 6,DlR,C) ’ 

107: it C-10;wtb 6,10,13 

108: nextX J 

109: fmt 2x, £2 . 0,2x,z;wrt 6 , A ( I ] 

110: for C*1 to 10 

111: if D|R,C|«0;i£ 0 ( R+l ,C ] »0; if D(R+2,C |**0;tmt Cx,z;wrt 6;gto + 2 
112: fmt 3x, £5. l,z;wrt 6,DlR+l,Cl 
113: it C*10; wtb 6,10,13 ' 

114 : next C 

115: fmt 6x,z;wrt 6 

116: for C*1 to 10 

117: it D[R,ci=0?if D (R+l,C]*0j if D f R+2 ,C )-0 jfmt 8x,z;wrt 6;gto +2 
118: fmt 4x, £4. l,z;wr t 6,D[R+2,C) 

119: if C=10;wtb 6,10,13,10 

120: next C 

121: next I 

122: if A>Hjgto M end" 

123: ent "Change Paper CONTINUE" ,X; gto "Load Data" 

124: "end":dsp "Finished" jend 
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ORIGINAL PAS3 IS 

-rue 8: Statistics 10-I6-41-. OF POOR QUALITY 

M •< . 

M Init " j 

dim S C 10 0 1 ,X| 100) , A$ ( 7 »7| , D $ l 2 0 ] ,? $|« J , N$ I 3 U) ,SVI2U| ,7$ | 2| 

"Fir st "*A$ ( 1) ? “Second "♦A? 121?" Th i rd " A ? | ,1) 

"Four th "♦ A? 1 4 j ; " F it th "♦AS ( 0 ) ; "Six t’n"*A? ( 1 . ) ? "Seven tn"*A* j ’/) 

ent "Today 's uate? (XX-XX-XX) " 

ent "Wo. ot scat frequencies?-- ,M? dim t (f) , 

for 1=1 to l\ 

dsp A$lU,"Scat Frequency (G'.Ifc) ?" 
ent " " , F ( I ] ? t xd l;it F ( I ) *4 . 75? 1 xd 2 
prt F [ 1 1 

ent "Polarisation?" ,P$U 1 ?f mt 14 x,c 2 ?wr t iv« l f | 
next 1 

ent "Site Lame?" ,N$ 

ent "Date uata taken?" , 0 $ 

tor l=i to 100 

5Q00+X [ I J 

next I 

tor 1=1 tc 3 U 

it I>len(D$) ? it I<=20?" M -D$|T,1] 
it I>len ( W$ ) ; " "♦NS|I,I) 
next I 

ent "How many look angles?" , f 4 ?dim A|w) ,0 4 ) ,H ( »1 r i# ,6 j 

prt "look Angles: " 

for 1=1 to U 

Usp A $ [ 1 1 , " Loo k Angle?" 

ent " " , A 1 1 j ?f xa 0 ;prt A [ 1 ] 

next 1 

ent "Key on sites? l=yes u=no",X?if X=U?st «5 y?yto +6 
spe ?prt "Sites: " 

;for 1=1 to 100 

ent "Site number multiplied by 100 ?" f S( I ) ; il. Llg 13 ?ofci 13 ?i;to 
fxd 2 ?prt SflJ/lOO 
next i 

M P.rev" rent “Previous data? l=yes u=no" , X; i l X=l;y sh "prev;i,v ta" 

M M* ' 

"Tape": • 

ent "Tape number?" ,X;fxd 0 ?spc 2 ?ort "Tape wo: " ,X 

ent "Track number?" ,Q? tr k Q?ort " Track:",.,} 

ent "Start File Wo?",L?L*.\ ‘ 

txd 0 ? pr t " Start File:",! 

ent "Step File Uo?",H 

prt " Stop File : " ,h? spe 

ent "exclude any tiles? l=yes 0 = no" , X;il X = 0 ;:jt?o "Let" 
prt "Excluded Files: " 
for 1=1 to 100 

ent "File number to be excluded?" ,X(I 1 ? it tlgl 3 ;ctq 1 3 ; g to "La 
fxd 0 ?pr t X ( 1 1 
next 1 

II If , . 

"Ldf " : 

if A>H?gsb "moroata" 
for 1=1 to 100 
if A*X ( I J ; A+l-A 
next 1 
ldf A,rU,r 26 
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ORIGINAL’ PAGE IS 

OF POOR QUALITY 


58 

"Chock criteria" 

• 

• 


59 

Ctl) 

10 




00 

tor 

J =1 .to 

M 



61 

it 

r5=l;"lill 

" * V 5 , 



6 2 

it 

l* 5=2; "VV 




03 

it 

r 5 = 3; " UV 




64 " 

it 

r 5=4 ; "VII 


’ 


05 

it 

r 4=1' 1 1 ) ; 

it y? 

=P5 1 1 1 ; stg 

to 

next l 




07 

it 

tl jl0=0; 

A+l-A 

; 9 to 

"Luf " 

66 

eig 

iu 




09 

tor 

1=1 to 




70 

it 

r 1 2 = A 1 1 } 

;sfg 

10; I* 

■K 

71 

next 1 




72 

if 

flej 10=0 ? 

A+l-A 

?gto 

"Ldf" 

73 

ctg 

10 




74 

it 

fly 9;y to 

+ 5 



75 

tor 

1=1 to 

10U 



76 

it 

r 10=3 f I ) 

Jbty 

10 


77 

next I 




78 

it 

fig 10=0; 

A + l-A 

; *J to 

"Lclt " 

79 

•» 


» . 
• 



BO 

B1 

62 

83 


"Data Matrix": 

I) f 8 , K * 1 ] +1 -IJ [ J * K , 1 ] 

d(j,k, 2] +r2G-D(j,i:,2] 

I) IJ,K,3) +r26*r23-D|J,K,3] 


04 


D (0 , K , 4 J + r 26 * r 2 3 "2 *0 ( j , K , 4 ] 


05 


A +!♦ A;gto "Ldf" 


06: 


II 


•I . 


10; I*J 


07: "Calc": 

08: ror 1=1 to M 
69: tor J=1 to N ! 

90 : D| 1 , J, i ) -C 
91 : D 1 I ( J, 2 ]*B 
92 : D ( 1 , 8 , 3 j ♦ X 
93 : rj 1 1 , J , 4 ) ♦ y 
94 : X/b-M 

95: y ( (8/{C-l) ) (Y/B-*i' 
9b: ysb "student T" 

97: W-T*Z/V (C-i ) -U 
98: w+T*Z/V (13-1) ♦V 
99: iOlog (W)*MI,J#1| 
100; 101og(Z)-Ml,J,2] 
101: B-*R[I,J,3] 


102: C> R [ I ,<J , 4 ] 

103:. 5000-MI, J,5] ;it 

104: 10 log ( V) - R 1 1 , J ,6] 

105: next J 

lub: next I 

107: ” " : 


2))-Z 


U>0; 101og(U)-M*. f I* J,5 1 


a 

* ; ]' ■ " • 

j ** 
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“ ' ' . ORIGINAL PAGE IS 

OF POOR QUALITY 

"PrtUata": 

Wtb 6 , 2 7 , 6 9 ; to, t 5X,z;wrt o;wtb 6,2/, 77 

toe i = i to ll 

fxd 1 ;*i £ f flj*4.75;txti 1 

cicp "Print" , F ( 1 1 f "ucu-?" 

ent " " , X ; i fc X=g?gto "ihc" 

ent "Ready to print?" 

fmt 52x,cB,/;wrt 6,E$ 

fmt 18x , "JSC GROUND SCA'l’TfiFOMRTEP" ; *r t 0 
wtb 6, 27,10; fmt *18x,24" ";wrt 6 
tmt 22x, "STATISTICAL DATA"; wrt 6 
wtb 6,27 ,10;£mt 22x,16"__" ,/;wrt 6 

it f(il =4. 75? tmt "SYSTEM: " ,t$. 2, z;wrt y ,e fj| ;<>to t2 
fmt "SYSTEM:" ,£5.1 ,z;V/rt 6 ,F[I] 

fmt " GHz", .15x, "SITE: ",c30;wrt C,J9 . ’ 

wtb 6,27,10;fmt 6"_" ,2 5x ,4 ; wr t 6 

fmt "POLARIZATION ,c2 ,15x, "DATE: ",c20;wrt 6,«MI!»0$ 
wtb 6 , 2 7 , 1 0 ; f m t 12"_" , 19x ,4 ,2/; wr t C 

fmt "Angle" ,3x, "Mean", 3x, "Standard", 5x, "Number ot",z;wrt 6 

fmt 5x, "Number", 4x, "90* Confidence" ;wrt 0 

fmt 'M D e g ) " , 3 x , " ( UG ) " , 3 x , " oe v ( d B ) " , 3 x , " In J . J a inn let", ,j ; w r t 

fmt 3x, "of Sites", 4x,"infeetval (dE)"?wrt 6 

wtb 6 ,27 , 10; fmt 5" ",3x,4" ",3x',<J" ",3x,z;./rt 0 

fmt 12"_",3x,B" ",3x,13" "72/;wrt C 

tor J=1 to N ” ~ 

if R( I, J ,5] =5U00;f mt 57X , *,****** ;wr t 6;glo + 2 
tmt 57x,t5.1;wrt 6,RU ,J,5] 

fmt f 3 . 0, 4 x , t5 . 1 ,4x , t5 . 1 ,6 x , z ;wr t C , A | J J , P 1 1 , J , 1 1 ,R ( I , J ,2 1 
fmt f 7.1,9x,t4. 0; wrt 6 ,R [ I , J , 3] , R f I , J, 4 ) 
fmt 5?x , t5 . 1 , 3/; wrt 6,R|I,J,6J 
next J 

"inc" :next I 
end 


» f 


108; 
*109; 
110: 
111 : 
112 ; 
113: 
114 : 
115: 
110 : 
117: 
118: 
119: 
120 : 
121 : 
122: 
123: 
124: 
125; 
126: 
127 : 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137 : 
138: 
139: 
14 0: 
141: 
142 : 
14 3: 
144: 
145 : 
14,6: 
147 : 
148: 
149: 
150: 
151: 
152: 
1513: 
154: 
155: 
156: 
157: 
158: 
159: 


"pre vdata" ; 

spe ;crt "Previous Data:"," Angle"," 

prt " Std Dev(dB) " ,"o}o of Ind G, Tipis"'," 
tor 1=1 to M 

txd 1 ; if F [I] =4. 75; fxd 2 
prt "Fr’ecj: " ,F f I) 
prt "Pol: ",P$ [I] ; s pc 
for J=1 to N 
fxd 0;prt AfJJ 

dsp "Sigma 0(dB) for" ,A(J) ,"deg?" 
ent " " , X; £ xd 1; t X 
fxd 0; dsp "Std tor" ,A (J1 ,"deg?" 
ent "",T;f xd ljprt Y 

txd Q;dsp "No of Ind Smpls for " ,A( J J , "deg?" 
eht WM ,B;fxd l;prt B 

fxd Oydsp "No of sites for " ,A(JJ , M deg?" 
ent " ",C; txd 0;prt C;spc 
tn* (X/10)+X;tn A (Y/10) *Y 


>igmcv 0 ( i 
■Jo of Giles";: 



fflSSW 


(C-i) 

ODf 

l>U [ 1,0 1 2 ] 

X+»fl,4, 3) 
vi;li,j,4l 
next J 
srx; 2 
next % 1 
re!. 

It H * 

"moruata" : 

eat "More data? l*yes 0*no" r X 

it X*0;qto "Calc" 

tor 1*1 to 100 

50U0+XM j 

next I 

9 to "Tape" 

ret 

«i H . 

"stuaent T": 

1. 645*T; int (B)*X 
if X<«120;1.66*T 
if X<«61;1.67*T 
if X<*41,-1.68*T 
if X<*31;1.7*T 
if X<=27; 1 . 71+T 
if X<=23;1.72«-T 
if X<*20; 1»73*T 
if X<*18jl.74+T 
if X<=17; 1. 75+T 
if X<*15; 1. 7C*T 
if X< = 14 ; 1. 77+T 
if X<=13; 1.78+T 
if X<=12; 1.8+T 
if X<=il; 1 . 81+T 
if X< = 1 0 ; 1 . 8 3 +T 
if X<®9; 1 . 86 +T 
if X<*8yl.9-T 
if X< = 7; 1. 94+T 
if X<=6; 2 . 0 2+T 
if X< = 5 ; 2 . 13-»T 
if X<=4; 2 . 35 ♦’f 
if X<=3 ; 2 . 92-T 
if A< = 2 ; 6 . 3 1 ♦T 
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0: 

1: 

:>i 

3; 

4 : 
5 -: 

0 : 
7: 
l : 
V: 

,1 6 : 
li: 
12 : 
13 : 
H : 
15 : 
16: 
1 7: 
l£s 
IV: 
20 : 
21 : 
22 : 
23: 
24: 
25: 
26: 
27: 
2d: 
29: 
30: 
31: 
32: 
33: 
34: 
J5i 
36 : 
J7: 
30 : 
3.6: 

4 if : 
Alt 
4 2 : 

4 3: 

4 4 : 

4 5 : 
46 : 
47: 
40: 
49: 
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ORIGINAL PAW (« 

OF POOR QUAUTV 

I'J’ilc 0: riot Hero vr., Angie oh Printer 1-5-tf 2" : 

i^l » A , $ | 7 , 7 ) ,f)?|20| ,P$M,2| ,*3$| J*J|,X5fU| 

». , • f °- t „ * A ’ R 1 : ' :cco A? | j 1 ; - lour tti * . \ $ [ 4 ) 

Pit i'.n "■* a? [ 6 1 ;":)ixtn"*<A$.f6J j "Seventh H *n$| 7| 

Viol label"; 

5?>,l' 1>A * ir ? p *? U . 0C ‘ ! > Cro « n:3i bOta?",X;it X*2;filg ljqto +3f 
A/l : oil t. 'Mission number?" ,P, "Line number?" , "Run nujvb«i 
ixo 0 ; in* t " ' * x : r*, " r,i no : V; , " P un : " , h 

"Ctuun,i" : or*i Vote oala taxon?., io Day, Ye ",.■)$* nr t 6s 
ont "iJnir.i* o» t.nta .clLc?" :”^tonc 2 

" • . 

entry": 

cut "i.'o ol. neat. 1 renucncicR?"', i 
c n t "No* c L t aok ;i n ;j lo n?" ,4 • dip o fO :'•],* | 

Lor 1=1. t c %' 

f T | , " loot (•'cr-oucncv (Oil?! ) ?" 
ont '"MM L | 

o n t "Pc; j p r i zc t ic n? " , P $ f 1 1 
next ] 

lor J = ] to r 

asp A? fi) , "book angle (deg)?" 
ont ,M ,b(0,I| . 
next I 

lor 1=1 to H 

Ixd l; if P | X 1 *4 . 75; f; xd 2 
sne ; or t "Prop; " ,p ( I J 

y° li M -*X$ ( 1) ; P$( I ) ♦X? ( 15) ; or t XSjspc 

ior J=i to m 

txa 0 ; pr t DfU,Jl 
dsp "sigma 0 lor " ,D| 0 ,J | ,"deg?" 
ont "",D(l,aj 
Lxei 1 ; »vr t b(l, J| ;s >c 
next 3 
next 1 

" •• . 

"Plot": 

ent "Poavjy to plot?" ,H 
M Cl o a r " : w tr> 6 , 2 7,69 

Lott; margin" : tint 5x ,z; v/r t 6;wth 6,27,77 
Ton c:L Con/" : wt;b 6 ,27 , V 

P'orm Length" :wtb 0,27 ,76, int( 6*120/61) , int. ( a* 120) 

/"otl wi.itn" :v,to 0 ,27 ,07, int ( 8*120/64) , int { R* 120 ) 

'' Plot oriqin":wtb 6 , 27 , 79 , int ( 0/64) , int ( 0) , int (0/64) , int ( 0) 
~et an grarh"; 1 

" Character fiil'Vswtb 6,27,46 ,45, int (5/64) ,int(5) ,0 
•• 7 e ♦ /. 1 1 ) ; 8 1 y [ 1 1 ; o fib " loc " 
it 1 iy 1 =0 ; 1'A.t "AI p’.'p cCA'I'CnnOPKint!" ;wrt 6 
it 1 1 {? 1 * 1 ; :n t "J8C GPOONO a LV. TTCPOMETf i' " ; v r t f 
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50* "Make box"; OF POOR QUALITY 

51* *Top";120’*XUJ;864oY|ll;9Eb "loc* 

52* 720^X12];CG4*Y(2J ;gsb "plot" 

53* "Bottom": 120*X| H;192*Y (11 ;gsb "loc" 

54* 720+X[21; 192*Y ( 21 ;gEb "plot" 

55* Wtb 6,27 , 46 , 124 , int ( 5/64) , in t (5) , 0 
56* *Fight side" : 720-X( 11 ; 192-^Yf 11 ;gsb "loc" 

57 * 720«-X(2);664*Yl2) »gsb "plot" 

56* "Left side" s 120*X( 11 ;864+Y (1) f geb "loc" 

59: 120-XI21 ;192*Y|21 ;gsb "plot" 

.60$ 220-XU1 
61; for 1*1 to 5 
62* 192*Y ( l] ;gsb "loc" 

63; wtb 6,124 
64: k|l)+i00*X(l) 

65: next 1 

66: for 1=0 tc 60 by 10 

67: 4 iO(I-.9>+120*XUl;176*Y(l) ;gsb "loc" 

66: fmt £2.0,z;wrt 6,1 
69: next 1 

70: 360-*X( 1) ; 160*Y ( 1) ;gsb "loc" 

71: fmt "LOOK ANCLK" ;wr t. 6 

72: 60+6*len(s$)->Xlll;12B*Y(l|;geb "loc" 

73: fmt c30;wrt 6,53 
74: if £lgl=l;gto +4 
75: 1B6*X11); 112-YlH ;gsb "loc" 

76: fmt "Mission:, ", £3. 0,5x, "Line: * ,£2 . 0,5x ," I un: ",12.0 
77: wrt 6,P,Q,F 

76: 180+6* len (D$) *X( 1J ; 96*Y | 1) ; if £lg 1**1? 1 12-V f 1 1 
7$: gsb "loc" 

80: fmt c20;wrt 6,D$ 

81: 0+Xll] ;648«-Y(l) ;gsb "loc" 

82: fmt "S" ,/ ,"I ",/ ,"G" ,/,"M",/ ,*A",2/,"Z",/,"1" ,/, 

8$: wtb 6, 124; fmt 2/,"D" ,/ ,"B";vrt 6 
84 ; §nt "0)L ;, ixecl or l)Variable Scale?" ,X 
85:‘if X*0;-35*L+Y;8*D;64*/) 

86: if X*l;gsb "var" 

17:, for 1*0 to D 

88: 84+Xl 1) ; I *A+192+Y (II ;gcb "loc" 

89: fmt £3.0,"-"; wrt 6 ,Y;Y+5+Y 
90: next I 

91: w’tb 6, 27, 79, in t( 120/64) ,int(120) ,int (192/04) ,int (192) 
92: " “ : 

93: "Plot uata": , 

94: for 1*1 to w 

95: if F [I ] =1 . 6; wtb 6 ,27 ,46 ,46 , int (2/64) , int (7) , A 
96: if F 1 1) “4. 75; wtb 6 ,27 ,46 ,46 , int (10/64 ) , in t ( ,U ) , f 
97: if F (1 )*13.3;wtb 0 ,27 ,46 ,42, inWf /<>4| ,ir.t( l ) ,0 
98: 348^Xlll ;656-161*Y HI ;gcb "loc" 

99: fmt £4.1,lx,c2,z 

100* if Fill *4. 75; fmt f4.2,ix,c2,2 


A",2/,"Z",/ ,"1" ,/ ,"F" ,/ ,"C",/;wr 
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• I ORIGINAL PAGE IS 

*101, Wrt 6,F|I1 ,P$UI OF POOR QUALITY 

102 s if F (IJ*l.(i;£mt lx,fc*~ n |tfiU 6 
103s if F,|I J «4 . 75; 4 44-*X ( 1) ; Y 1 1 1 14 *Y (1) ;qr.b “loo" 

104: if F [1 ) *4 . ?5;tmt 6".";wtt C 
1Q5S if F. HI -13, 3;tmt lx,e M *\*wrt i 
106if or J»1 to M * 

^07i54f JpljlO*DlO # l|..*XfHi(A/5MD!I,-H-M*Y|lUv?«l "lo£" 

1081 if J>1;10*D|0,J|-*X|2| j (/,/5) <DU#«J)“I Slot" 

'109s Wtb 6,43,8 
llOtnext J 
Ills next l 

112: spc 5;dsp "Finished* send 

113: H loc":wtb 6 ,27,65, int(Xi.U/64| ,int (X|)| > ,int (i'm/64) ,int (YU I) ; 
114: "plot" s wtb 6 , 27 , 9 7, in t( X I 2) /64 ) , int (X ( ? | ) , i nt ( Y 1 2 J /64 ) ,int(*f ?) ) 
115 s’J'var" s 
* ms^50SH;5O*L 
117: for I«1 to K 
:118 1 for J«1 to M 
119« Djfl,J J*-T 
.1201 if T*H 
121: if T<*L? T*L 
~ 12i2flexrj'' • 
jL2iBi|extJ.I 

124ff(inf (H/5)+l)*5^H;5(int(L/5)-l)*L 
i257i<HrL)/5»D;int(672/D)^AjL*Y 
126 |%t 
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